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COMPUTER  PROGRAMMING  TECHNIQUES 
FOR  INTELLIGENCE  ANALYST  APPLICATION 

REPORT  NO.  2 


INTRODUCTION 

During  the  period  covered  by  this  report  extensive  modification* 
were  made  on  the  monitor  and  application  program*  of  the  AN/GYA 
complex.  The  multi-proceeslng  monitor  can  handle  dynamic  tape 
allocation,  and  it  permit#  updating  of  the  drum-diek  library.  There 
is  satisfactory  work  progress  on  the  multi -processing  link  between 
FMS  and  the  AN/GYA  monitor. 

Additional  distribution  functions  have  been  programmed  for 
inclusion  in  STORM  and  on  the  AN/GYA  disk.  Facilities  have  been 
extended,  and  several  integrated  experiments  were  performed.  A 
list -processing  language  has  been  defined,  and  is  being  prograrnmed, 
which  will  facilitate  inclusion  of  prototype  studies  in  the  lay  user’s 
system.  Description  of  such  prototypes  has  been  continued. 

Programs  have  been  developed  to  permit  experimental  runs  for 
the  determination  of  statistical  word  association.  The  clear  text  system 
has  been  augmented  by  novel  encoding  features  which  permit  faster 
search.  Pre-processing  of  an  extended  data  bas-  is  under  way.  A 
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study  was  prepared  proposing  the  use  of  an  adaptive  thesaurus  as  an 
experimental  -ool  to  quantify  properties  of  indexing  systems. 

Bibliography  on  man-machine  consoles  and  studies  of  systems 
have  been  extended. 

There  has  been  progress  on  the  programming  work  connected 
with  the  debugging  system. 

Many  of  the  modifications  and  program  extensions  were  tried 
out  extensively,  on  tha  AM^GYA  complex.  The  most  conspicuous  new 
feature  was.  during  Che  period  covered  by  this  report,  the  on-line 
updating  facility. 
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TASK  I:  INVESTiGATlCW  OF  STATISTICAL  PREDICTlCg^, 
DiSCRiMlMATION  .  AND  CX-ASSiriCATiCf4  TECHNIOUES 


1.  Definition  of  Lt»t  Proceatot  Functiont  for  Laty  Uaer*#  Language. 

A  series  of  operations  has  been  defined,  tentatively,  which  will 

facilitate  adaptation  of  the  lay  user's  language  to  the  AN/OVA  system. 

These  operation  codes  are  to  be  regarded  as  macrostatemeots  which 

can  be  called  and  executed  under  CXST  (executive  routine  for  statistical 

language  on  console^  this  approach  will  greatly  facilitate  programming 

and  addition  of  operations.  The  macros  are  simply  stored,  similar 

to  large  data  matrices,  on  the  standard  BCD  Input  tape  (currently  A5). 

Since  EXST  operates  under  the  multiprogrammmg  monitor,  executton 

of  the  lay  user's  language  will,  just  as  STORM,  take  place  simultane'^ 

ously  with  standard  operations  on  the  IBM  7094. 

DF.  A,  DISPLAY  DISPLAY  DISPLAY  $  I31SPLAY  etc. 

A  field  (matrix)  A  contains  a  message  ready  for  display  on  the 
console.  A  $  sign  separates  lines  of  display. 

WC,  A 

Write  contents  of  A  into  console  buffer  (i.  e.  *  display  if  ready). 

RC,  B 

Similar  to  0£F1N  In  EXST.  Read  the  typed  message  and  enter 
Into  buffer  B. 

CI.  B,  N, 

Similar  to  second  phase  of  DEFIN,  i.  e. .  the  BCD  message  in 
buffer  B  is  translated  into  floating  point  numbers,  stored  In 
list  N. 

CE,  B,  N.  F 

Similar  to  DISPL  in  EXST.  Internal  floating  point  list  B  is  trans> 
Uted  into  BCD  list  N  wnlch  has  FORTRAN  F  format. 
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BM,  /.  ta.  b.  c.  d.  «)  -  A,  B.  C.  D.  E,  F. 

A  statement  may  be  preceded  by  a  statement  label  (A,  B,  etc.  ). 

U  the  caatent*  ol  word  Z  (a  HCIi  word)  iS  equal  to  a  (spelled  out), 
go  to  sUtement  A,  Similarly,  U  Z  s  b,  go  to  B,  etc,  U  Z  i« 
neither  of  the  wordg  in  parentheses,  go  to  F.  (Restricted  to 
at  most  five  words. ) 

BR,  A 

Unconditional  branch  to  A. 

IsT,  A,  N 

Loop  transfer.  Execute  statements  up  to  A,  N  tlntes. 

RC,  B 

ZQU,  (K)  =  B 

DF,  A,  NAME  OTHER  STOCKS  RELATED  TO  (K) 

The  foregoing  example  illustrates  a  conditional  DF.  At  execu¬ 
tion  time,  the  symbol  (K)  is  rep’aced  by  the  contents  of  B  (in 
the  example,  a  word  which  has  been  typed) 

LIST,  {(!})  =  FIRST,  SECOND,  THIRD 
LT,  e,  3 

DF.  A,  ENTER  THE  {(!})  ROW 


This  sequence  illustrates  a  loop  executed  three  times,  with 
({!))  replaced  by  FIRST,  SECOND,  and  THIRD  consecutively. 

RT,  A,  N 

Read  a  file  from  tape  unit  A  into  field  N. 

WT.  A,  N 

Write  a  file  from  field  N  onto  tape  umt  A. 

MV.  A,  B 

Move  contents  of  A  to  B. 
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£T,  NAME,  R,  C,  A 

Enter  the  matrix  NAME  with  R  row*  and  C  columns  into  the 
symbol  table  A  (there  may  be  several  •auu  ta-bles). 

XT,  A.  F,  K 

Extract  the  iniormation  (location,  equivalent,  rows,  columns) 
of  matrix  named  F  In  symbol  table  A  and  store  result  into  K. 

IN,  A,  N,  Nl,  B,  M 

From  field  A,  move  characters  N  to  Ni  into  field  B,  starting 
with  M. 

SCS,  A  Set  control  source  to  A 
SDS,  A  Set  data  source  to  A 

These  specify  the  unit  (tape,  console,  card  reader)  in  which 
source  statements  and  data  can  be  found.  The  option  is  neces¬ 
sary  not  only  for  dynamic  tape  allocation,  but  also  to  enable 
medium- sired  matrices  to  be  entered  from  card  reader. 

The  foregoing  operation  codes  may  undergo  modification  in 
the  course  of  programming  and  application. 

2.  Extension  of  IXstribution  Routines 

Numerical  analysis  and  programs  of  non-central  distrioutions 
for  the  statistical  Language  are  presented  in  Appendix  I. 

3.  Examples  for  Lay  User’s  Language  (continued  from  previous  report) 
Biological  Assay 

The  typical  experimental  situation  is  as  follows.  Several  (N) 
groups  of  subjects  (insects,  people,  etc.  )  are  available.  The  group 
sizes  are  usually  different.  Groups  are  subjected  to  increasing  '  doses" 
of  one  or  more  treatments.  A  growth  curve  is  to  be  fitted  to  the  pro¬ 
portions  affected  under  each  dose.  Most  frequent  applications  are 
insecticide  studies  and  learning  experiments.  The  program  performs 
a  logistic  transfornnation  and  estimates  the  growth  curve  by  maximum 
likelihood. 
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Frame  1?  NAME  YOUR  INDEPENDENT  VARIABLES,  SEPARATED 
BY  CGhAUAS  IF  MORE  THAN  ONE.  HOW  MANY  ARE 
THERE?  HOW  MANY  GROUPS  OF  OBJECTS  DO  YOU 
HAVE? 


Action  1:  Xi  oamea  are  NAME  1.  NAME  Z,  enter  theee  into  liata 

(LI),  (L2),  etc.,  to  be  inserted  below.  Enter  number 
of  variables  into  (M);  number  of  groups  into  (N). 

Frame  2:  NAME  YOUR  DEPENDENT  VARIABLE. 

Action  2;  Enter  into  list  (LDl) 

Repeat  through  Action  4  (M)  times  with  (L)  taking  the  value 
(LI),  {L2),  ...  (LM). 

Frame  3:  ENTER  DATA  FOR  (L)  IN  THE  FCRlvl  Al,  A2,  A3, 

ETC,,  WHERE  Al.  A2,  A3  ARE  ACTUAL  NUMBERS 
WITH  OR  WITHOUT  DECIMAL  POINTS. 


Action  3:  Transfer  to  EXST-routine  DEFIN,  set  up  the  contents 

of  (LI);  (L2),  etc.  (1.  e.  the  names)  into  dictionary 
table.  Compare  each  number  of  entries  with  (N).  Lf 
discrepancies  occur,  display; 

ERROR  IN  ENTRY.  REPEAT  FROM  THE  FOLLOWING 
POINT; 

then  go  back  to  the  end  of  Action  2,  i.  e.,  entry  point 
of  the  loop. 

Frame  4:  DO  YOU  WISH  TO  TRANSFORM  DATA  POINTS  OF 

(L)  INTO  LOGS,  EXP,  SQU,  OR  ROOT  ? 


Action  4:  If  answer  is  nc,  proceed  to  loop  entry.  If  answer  is 

r  .:y  one  of  tiie  four  functions,  go  to  cor r'i spending 
STORM  function  under  EXST,  using  the  same  argument 
for  input  and  -lutput,  e.  g.,  ROOT,  NAME  1,  NAME  1, 
Store  transformation  names  into  (Tl),  (T2),  etc.  If 
no  transformation,  store  blank  at  that  place. 

Needed  revision  of  EXST;  Include  LOG  and  EXP 
routines  on  dish. 

END  Cr  LOOP 
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Action  St  Wh«&  loop  i«  completed,  execute  HPAC,  NAM£  1, 
NAMr.  NAMEM  s  X. 

Freme  6;  ENTER  THE  TOTAL  NUMBER  OF  OBJECTS  (INSECTS, 
EMPLOYEES,  ETC.)  IN  EACH  CROUP  (UNDER  EACH 
DOSE  OR  TREATMENT). 

Action  6:  Check  that  niunber  of  entries  is  (N).  If  not,  display 

ERROR  and  re~dlsplay  frame  6.  Then  enter  via 
DEFIN,  *TOT*,  h]  ll 

Frame  7:  ENTER  THE  NUMBER  OF  SUCCESSES  (INSECTS 

KILLED,  EMPLOYEES  CURED,  ETC.)  UNDER  EACH 
DOSE  OR  TREATMENT,  IN  THE  SAME  MANNER. 

Action  7:  Test  N.  If  incorrect,  display  ERROR,  REPEAT  and 

redisplay  frame  7. 


Execution: 

ONEX,  N,  1  »  ON 
DUP,  PO,  PE 
DUP,  ♦TOT*,  W 
SUB,  ON.  PE,  QE 
DiV,  PE,  QE,  R 
LOG,  R.  LR 
SCM,  LR,  0.5,  YPR 
DUP.  YPR,  Y 

Then  repeat,  ten  times,  the  following  ten  statements  (or  macros). 

WREC,  X.  Y,  N.  W,  B,  YPR 

LGIT,  YPR,  N,  PE 

SUB,  PO,  PE,  DIFF 

SUB,  ON.  PE,  QE 

MPY,  PE,  QE,  PQ 

SCM.  PQ,  2,  DEN 

DIV,  DIFF,  DEN,  COR 

ADD,  YPR,  COR,  Y 

SCM,  DEN,  2,  PR 

MULT.  *TOT*,  PR,  W 
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The  m^cro>routines  are  ae  follow*: 

LGIT,  A,  N,  B 
SCM,  A.  2,  A2 
ONEX,  N.  1,  O 
EXP,  A2,  NUM 
ADD,  O,  NUM,  DEN 
01V,  NUM.  DEN.  B 
ENDMAC 
and 

WREG,  X,  Y.  N,  W,  B.  YPR 

WROW,  X,  W.  XW 

WROW,  Y,  W,  YW 

ONEX,  N,  1,  ON 

HPAC,  W,  XW,  XX 

HPAC,  ON.  X.  XZ 

MPYT,  XZ.  XX,  S 

INV,  S,  SIN 

MPYT,  XZ,  YW,  RHS 

MPY,  SIN.  RHS,  B 

MPY,  XZ,  B,  YPR 

ENDMAC 

Note:  Include  in  EXST,  the  following  routines: 

DUP,  A,  B  duplicate 

WROW,  A,  B,  C  weigh  rows 

WCOE,  A.  B,  C  weigh  columns 

A  is  a  matrix.  In  WROW,  B  is  a  column  vector  whose  first 
element  is  multiplied  into  the  first  row  of  A,  second  into  second  row 
of  A,  etc.  Thus,  if  the  elements  of  B  were  the  diagonal  elements 
of  a  diagonal  matrix  D,  C  c  DA.  In  WCOL,  B  is  a  row  vector  whose 
first  element  is  mtiltiplied  into  the  first  column  of  A.  second  into 
second  column  of  A,  etc.  Thus,  if  the  elements  of  B  were  the  di¬ 
agonal  elements  of  a  diagonal  matrix  D,  C  >  AD. 

After  execution,  state: 
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Frame  8j 


Action  8: 
Frame  9: 

Action  9: 
Frame  10: 


THE  FOLLOWING  DISPLAY  IS  THE  REGRESSION 
EQUATION.  XT  HAS  ONE  COLUMN.  THE  FIRST 
ELEMENT  IS  THE  CONSTANT  TERM.  THE  OTHER 
TERMS  ARE  THE  COEFFiaENTS  OF: 

in)  (LU 

(T2)  <L2> 

{T3)  (L3) 

• 

k  * 

e  * 

{TM>  (LM) 

Comment:  The  latter  are  inaerta  from  Actiona  1 
and  4. 


When  uaer  aaya  GO.  execute  DISPL.  B. 

THE  FOLLOWING  DISPLAY  SHOWS  THE  OBSERVED 
PROPORTIONS  OF  SUCCESS  IN  THE  FIRST  COLUMN, 
AND  THE  EXPECTED  PROPORTIONS  IN  THE  SECOND 
COLUMN. 


When  uaer  »ay«  GO,  execute  DISPL,  PO,  PE,  RESULT. 

THIS  IS  THE  EIvID.  IF  YOU  WISH  TO  START  A  NEW 
JOB,  TYPE  CANCEL.  IF  YOU  WISH  TO  SIGN  OFF, 
TYPE  KAPUT.  THANK  YOU. 


Quality  Control  Sampling  Xogpection  Plan 


Frame  1: 


Action  2: 

Frame  Zi 


Action  2: 

Frame  3: 
Action  3: 

Frame  4: 
Action  4: 
Frame  5: 


THIS  PROGRAM  WILL  SET  UP  A  SAMPLING  INSPEC¬ 
TION  PLAN  FOR  ACCEPTING  OR  REJECTING  A  LOT 
OF  ARTICLES  SUBMITTED  FOR  INSPECTION, 

ON  EXAMINING  AN  ARTICLE  OF  THE  LOT  SUB¬ 
MITTED  FOR  INSPECTION,  CAN  YOU  IDENTIFY 
IT  AS  DEFECTIVE  OR  NON-DEFECTIVE? 


The  answer  can  be  yea  or  no.  If  the  answer  is  no,  then 
display  THIS  PROGRAM  CAN  BE  USED  ONLY  WHEN 
AN  ARTICLE  CAN  BE  IDENTIFIED  AS  DEFECTIVE 
OR  NON-DEFECTIVE.  Then  skip  to  EXIT.  If  the 
answer  is  yes,  go  to  Frame  2. 

WHICH  SAMPLING  PROCEDURE  DO  YOU  WISH  TO 
ADOPT? 

1  ONE  SAMPLE 

2  TWO  SAMPLES 

3  A  SEQUENCE  OF  SAMPLES  ON  ONE  ARTICLE 

DRAWN  ONE  AT  A  TIME 

TYPE  THE  NUMBER  PRECEDING  THE  DESIRED 
METHOD. 


The  answer  can  be  1,  Z,  or  3.  If  the  answer  is  I,  go 
to  Frame  3.  If  the  answer  is  2,  go  to  Frame  II.  If 
the  answer  is  3,  go  to  Frame  23. 

DO  YOU  WANT  TO  STATE  THE  SIZE  OF  THE  SAMPLE? 

The  answer  can  be  yes  or  no.  If  the  answer  is  yes,  go 
to  Frame  4.  If  the  answer  is  no.  go  to  Frame  10. 

STATE  YOUR  SAMPLE  SIZE. 


The  answer  will  be  a  number.  Equate  if  to  N  internally. 

IF  YOU  CONSIDER  CONSUMERS  RISK  THE  IMPORTANT 
ONE,  TYPE  LETTER  A.  IF  YOU  CONSIDER  PRO¬ 
DUCERS  RISK  IMPORTANT,  TYPE  LETTER  B. 
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Action  5:  The  anewer  can  be  A  or  B.  If  the  answer  i«  A,  go 

to  Frame  6.  If  the  answer  is  go  to  Frame  8. 

Frame  6:  STATE  CONSUMERS  RISK  AS  A  PROPORTION,  IF 

YOU  DO  NOT  KNOW.  WE  RECOMMEND  YOU  STATE 
0.05. 


Action  6;  The  answer  will  be  a  number.  This  number  will  in¬ 
ternally  be  called  CR.  Go  to  Frame  7. 

Frame  7j  STATE  THE  PROPORTION  OF  DEFECTIVES,  WHICH 
THE  CONSUMER  WILL  TOLERATE. 


Action  7:  The  answer  will  be  a  nomber.  Call  this  number  PT. 

Execution: 

BINOP,  CR.  N,  PT  =  CC 
Then  display: 

Display  1;  THE  SAMPLING  SCHEME  IS  AS  FOLLOWS: 

DRAW  A  RANDOM  SAMPLE  OF  SIZE  (N)  AND 
DETERMINE  THE  NUMBER  OF  DEFECTIVES. 

IF  THE  NUMBER  OF  DEFECTIVES  IS  GREATER 
THAN  (CC),  REJECT,  OTHERWISE  ACCEPT. 
THE  WHOLE  LOT. 


Comment;  (N)  and  (CC)  will  be  the  numbers  obtained  in  queries 
and  execution. 

END  OF  JOB 


Frame  8;  STATE  PRODUCERS  RISK  AS  A  PROPORTION.  IF 
YOU  DO  NOT  KNOW,  WE  RECOMMEND  YOU  STATE 
0.10. 

Action  8:  The  answer  will  be  a  number.  Call  this  number  PR. 

Then  go  to  Frame  9. 

Frame  9;  STATE  THE  PROPORTION  OF  DEFECTIVES  CLAIMED 
BY  THE  PRODUCER. 


Action  9:  The  answer  will  be  a  number.  Call  it  PP. 
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Pfegy4<irmttiig  The  program  will  then  calli 

BINOP,  PR,  N,  PP  =  CC 
then  go  to  Display  i . 

Frame  10:  SUPPLY  THE  FOLLOWING  INFORMATION,  NUMBERS 
SEPARATED  BY  COMMAS: 

CONSUMERS  RISK, 

<IF  UNKNOWN.  WE  RECC^MEND  0.  05) 

PRODUCERS  RISK, 

(IF  UNKNOWN.  WE  RECOMMEND  0. 10) 

PROPORTION  DEFECTIVE  WHICH  CONSUMER  WILL 
TOLERATE, 

PROPORTION  DEFECTIVE  CLAIMED  BY  PRODUCER 

Action  10:  The  answer  will  be  four  numbers.  These  cumbers 

will  be  stored  as  follows:  CR,  PR  will  be  a  2x1  matrix 
called  R.  PT  and  PP  will  be  a  2x1  matrix  caUed  P. 

A  subroutine  will  be  prepared: 

SISIP.  R,  P  s  C 

This  program  will  curiipute  the  required  sample  slae 
(N)  which  is  the  first  element  of  C.  and  the  action 
point  (CC)  which  is  the  second  element  of  C.  These 
will  be  included  in  Display  1. 

GO  TO  DISPLAY  1 


Frame  11;  DO  YOU  WANT  TO  SPECIFY  THE  SAMPLE  SIZES? 


Action  11:  The  answer  can  be  yes  or  no.  If  the  answer  is  y  is, 

go  to  Frame  12.  If  the  answer  is  no,  go  to  Frame  14. 

Frame  12:  SPECIFY  THE  SIZE  OF  THE  FIRST  SAMPLE. 


Action  12:  The  answer  will  be  a  number.  Call  it  Nl.  Then  go 

to  Frame  13. 


Frame  13;  SPECIFY  THE  SIZE  OF  THE  SECOND  SAMPLE. 

Action  13:  The  answer  will  be  a  number.  Call  it  N2.  Then  go 

to  Frame  19. 
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Frame  14;  DO  YOU  WANT  TO  PUT  A  LIMIT  ON  THE  MAXIMUM 
OR  MINIMUM  OF  THE  TOTAE  SAMPJLE  SIZE? 

Action  14:  The  answer  can  be  yes  or  no.  If  the  answer  is  yes  go  to 

Frame  15.  If  the  answer  is  no  go  to  Frame  19. 

Frame  15;  DO  YOU  WANT  TO  SPECIFY  THE  MAXIMUM  TOTAL 
SAMPLE  SIZE? 

Acti'^n  IS:  Set  a  word  named  INDEX  ^  0.  The  answer  can  be  yes 

or  no.  If  the  answer  is  no  go  to  Frame  17  otherwise 
go  to  Frame  16. 

Frame  1 6:  SPECIFY  THE  MAXIMUM  TOTAL  SAMPLE  SIZE. 

Action  16:  The  answer  will  be  a  number.  Call  the  number  N.  Put 

INDEX  =  1,  and  go  to  Frame  17. 

Frame  17:  DO  YOU  WANT  TO  SPECIFY  THE  MINIMUM  TOTAL 
SAMPLE  SIZE? 

Action  17:  The  answer  can  be  yes  or  no.  If  the  answer  is  no  then 

go  to  Execution  1 1.  Otherwise,  go  to  Frame  18. 

Frame  18:  SPECIFY  THE  MINIMUM  TOTAL  SAMPLE  SIZE, 

Action  18:  The  answer  will  be  a  number.  Call  the  number  Nl. 

Put  INDEX  =  INDEX  +  1 .  Go  to  Execution  1 1 . 

Execution  II; 

If  I.NDEX  =1,  put  Nl  =  N2  =  N/2. 

If  INDEX  ^2,  put  N2  =  N  -  N  1 . 

Go  to  Frame  22. 

Frame  19:  CAN  YOU*SPECIFY  THE  SIZE  OF  THE  LOT? 

Action  19:  The  answer  can  be  yes  or  no.  If  the  answer  is  no  go 

to  Frame  21,  otherwise  go  to  Frame  20. 

Frame  20:  SPECIFY  THE  SIZE  OF  THE  LOT. 

The  answer  will  be  a  number.  Call  it  NN.  Then  calculate 
N  c  NN/20.  and  N/  «  N2  =  N/2.  Then  go  to  Frame  22. 

13 


Action  20: 


Fram*  21: 

Action  21: 

OlspUy  D2: 


Frame  22: 
Action  22: 

Frame  23: 
Action  23: 


IS  IT  hlsU  RIGHT  IF  BOTH  THE  SAMPLES  ARE  OF 
SX2E  $07 


The  anawer  can  be  yes  or  no.  If  the  answer  is  yes. 
take  N1  «  N2  =  50,  and  go  to  Frame  22.  If  the  answer 
ia  no  then  display 

THE  PROGRAM  CANNOT  BE  USED,  and  go  to  EXIT. 
Execution  12 

A  double  sampling  Inspection  routine  will  be  executed 
{progrskm  not  yet  available)  which  has  output  Cl  and  C2. 
to  aj^ar  in  the  following  display. 

Go  to  D2 

THE  DOUBLE  SAMPLING  INSPECTION  PLAN  IS  AS 
FOLLOWS. 

DRAW  A  RANDOM  SAMPLE  OF  SIZE  N1  AND  COUNT 
THE  NUMBER  OF  DEFECTIVES. 

IF  THE  NUMBER  OF  DEFECTIVES  IS  LESS  THAN  Cl. 
ACCEPT  THE  WHOLE  LOT. 

IF  THE  NUMBER  OF  DEFECTIVES  IS  GREATER  THAN 
C2,  REJECT  THE  WHOLE  LOT. 

OTHERWISE  DRAW  ANOTHER  SAMPLE  OF  SIZE  N2 
AND  COUNT  THE  NUMBER  OF  DEFECTIVES. 

IF  THE  COMBINED  NUMBER  OF  DEFECTIVES  IS  LESS 
THAN  C2,  ACCEPT;  OTHERWISE  REJECT  THE  WHOLE 
LOT. 

END  OF  JOB. 


Same  as  Frame  10. 


The  answer  will  be  four  numbers.  These  numbers  will 
be  called  CR,  PR,  PT,  PP  respectively.  Proceed  to 
Execution  12. 

Same  at  Frame  10. 

The  answer  will  be  four  numbers.  These  numbers  will 
be  denoted  internally  as  CR,  PR,  PT,  PP.  Then  proceed 
to  Execution  13. 

H 


DiffpUy  mt 

Action: 

Display  04: 

Action: 

Display  D&: 


Execution  I  3. 

AL  »  1 ,  »CR 
BE  s  l.-PR 
PPC  s  1.  ‘PP 

AA  s  EOGF  (BE/CR)  /  (LOCFiPP/PT) 

-  LOCK  (PPC/PTCJ) 

BB  =  LOGF  (PTC/ PPC)  /  (LOGF(PP/PT) 

-  EOGF  (PPC/ PIC)) 

CC  a  EOGF  (PR/AL)  /  (LOGF(PP/PT) 

-  LOGF  (PPC/ PTC)) 

Co  to  Display  D3 


FOR  YOUR  INSPECTION  PLAN*  YOU  WILL  NEED 
TWO  NUMBERS  AS  YOU  DRAW  EACH  SAMPLE: 

AN  a  (AA)  4  (BB)  TIMES  (NUMBER  OF  SAMPLES) 

BN  a  (CC)  4  (BB)  TIMES  (NUMBER  OF  SAMPLES) 

IF  YOU  WISH  TO  SEE  THE  NUMERICAL  VALUES 
OF  AN  ANDBNFORNal,  50,  TYPE  YES,  OTHER¬ 
WISE  TYPE  NO. 

If  YES  is  typed,  then  display  D4.  If  the  answer  is 
NO,  then  display  D5. 

THE  DISPLAY  WHICH  FOLLOWS  HAS  THREE  COL¬ 
UMNS.  THE  FIRST  COLUMN  INDICATES  THE  NUM¬ 
BER  OF  SAMPLES  DRAWN.  THE  SECOND  COLUMN 
IS  A  NUMBER  BN,  THE  THIRD  COLUMN  IS  A  NUM¬ 
BER  AN. 


Display  a  matrix; 

Column  1:  N  (values  1  to  50) 

Column  2;  BN  =  AA  +  BB*N 
Column  3:  AN  =  CC  4  BB*N 

THE  SEQUENTIAL  SAMPLING  INSPECTION  PLAN 
WILL  BE  AS  FOLLOWS: 

SAMPLES  WILL  BE  DRAWN  SEQUENTIALLY  ONE 
AT  A  TIME  AND  EACH  TIME  THE  TOTAL  NUMBER 
OF  DEFECTIVES  WILL  BE  COMPARED  WITH  AN 
AND  BN. 
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IF  THE  NUMBER  OF  DEFECTIVES  AMOUNG  N  SAM¬ 
PLES,  DN%  IS  LESS  THAN  OR  EQUAL  TO  BN.  THEN 
ACCEPT  THE  LOT, 

IF  DN  IS  GREATER  THAN  OR  EQUAL  TO  AN,  THEN 
REJECT  THE  LOT. 

IF  DN  IS  BETWEEN  BN  AND  AN.  THEN  DRAW  AN¬ 
OTHER  SAMPLE  AND  REPEAT  THE  PROCESS. 


Action: 


Then  c»U  EXIT. 


Sytem  Reliability  Analyieti 

The  foilowiag  1*  e  deecripttoes  o/  a  procedure  for  evaluatlug 
the  reliability  of  a  iyetem  consistiog  of  a  eet  of  aubeyatem*  in  *«rl«* 
with  each  eubeyatem  a  eet  of  component*  In  parallel.  The  u*er  need 
only  epeclfy  the  number  of  eubeyetem*,  the  number  of  component* 
in  each  •ubeyatem,  and  the  mean  time  to  failure  for  each  compo¬ 
nent.  He  may  then  obtain  the  probability  that  the  ayatem  survive* 


to  any  specified  time. 


Diaplay:  THIS  PROGRAM  PER...1ITS  AN  ANALYST  TO  OBTAIN 

THE  PROBABIL^ITY  OF  SYSTEM  SURVIVAL  TO  ANY 
ARBITRARY  TIME  FROM  KNOWLEDGE  OF  THE 
MEAN  TIME  TO  FAILURE  FOR  EACH  COMPONENT. 

THE  SYSTEM  IS  A  SET  OF  SUBSYSTEMS  IN  SERIES 
FOR  WHICH  EACH  SUBSYSTEM  IS  A  SET  OF  COM¬ 
PONENTS  IN  PARALLEL.  THAT  IS,  THE  SYSTEM 
FAILS  WHEN  ANY  SUBSYSTEM  FAILS  AND  A  SUBSYS¬ 
TEM  FAILS  ONLY  WHEN  ALL  ITS  COMPONENTS 
FAIL, 

Frame  1;  ARE  YOU  WILLING  TO  ASSUME  AN  EXPONENTIAL 
RELIABILITY  FUNCTION  FOR  EIACK  COMPONENT? 

NOTE:  THE  EXPONENTIAL  RELIABILITY  FUNCTION 
IS  OFTEN  AT  LEAST  A  GOOD  APPROXIMATION  TO 
THE  TRUE  RELIABILITY  FUNCTION.  IT  IS  THE 
APPROPRIATE  RELIABILITY  FUNCTION  FOR  ANY 
COMPONEJ^T  FOR  WHICH  FAILURE  IS  PRIMARILY 
DUE  TO  CHANGE  RATHER  THi^.N  WEAR. 


Action  1:  The  answer  can  be  yea  cr  no.  If  the  answer  is  yea. 

to  to  Frame  3.  If  the  answer  is  no,  go  to  Frame  2. 

Frame  2:  AT  THIS  STAGE,  THE  PRESENT  PROGRAM  HAS 

NOT  INCORPORATED  THE  OPTION  OF  RELIABILITY 
FUNCTIONS  OTHER  THAN  THE  EXPONENTIAL, 
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Actioa  2: 

Fraxne  ii 


Action  3: 

Frame  4: 


Action  4; 


Frame  5: 


IF  YOU  REQUlRiu  THE  USE  OF  A  DIFFERENT  RE- 
ULABIUTY  FUNCTION,  YOU  SHOULD  PERFORM 
THE  ANALYSIS  BY  ANOTHER  METHOD. 

WOULD  YOU  LIKE  TO  ASSUME  AN  EXPONENTIAL 
RELIABILITY  FUNCTION  FOR  EACH  COMPONENT 
AND  USE  THE  RESULT  AS  A  FIRST  APPROXIMATJ-  N? 

If  the  answer  is  yes,  go  to  Frame  3.  If  no,  go  to 
PROGRANi  TERMINATED. 

DOES  TKc.  SYSTEM  CONSIST  OF  SUBSYSTEMS  WHERE 
THE  SUBSYSTEMS  ARE  IN  SERIES  AND  THE  COM¬ 
PONENTS  OF  EACH  SUBSYSTEM  ARE  IN  PARALLEL? 
(NOTE:  IT  If  NOT  NECESSARY  THAT  COMPONENTS 
IN  A  GIVEN  SUBSYSTEM  BE  IDENTICAL). 

NOTE:  THE  SUBvSYSTEMS  ARE  IN  SERIES  IF  THE 
SYSTEM  FAILS  WHEN  ANY  ONE  SUBSYSTEM  FAILS. 

A  SUBSYSTEM  HAS  ITS  COMPONENTS  IN  PARALLEL 
IF  THE  SUBSYSTEM  FAILS  ONLY  WHEN  ALL  ITS 
COMPONENTS  HAVE  FAILED. 


If  the  answer  ia  yea,  go  to  Frame  5;  if  no,  go  to 
Frame  4, 

THE  PRESENT  PROGRAM  IS  NOT  DESIGNED  TO 
HANDLE  YOUR  SYSTEM.  IT  MAY  BE  POSSIBLE  TO 
BREAK  YOUR  SYSTEM  DOWN  INTO  SUBSYSTEMS, 
EACH  OF  WHICH  IS  OF  A  FORM  REQUIRED  FOR 
THIS  PROGRAM. 

DO  YOU  WISH  TO  START  OVER? 


If  the  answer  is  yer,  go  back  to  Frame  X.  If  no, 
display:  SORRY,  AT  THIS  STAGE,  THE  PRESENT 
PROGRAM  iS  NOT  DESIGNED  TO  HANDLE  YOUR 
SYSTEM.  PROGRAM  TERMINATED.  GO  TO  PRO¬ 
GRAM  TERMINATED. 

SPECIFY  THE  NUMBER  OF  COMPONENTS  LN  EACH 
SUBSYSTE.M  IN  ORDER.  FOR  EXAMPLE,  3,  4.  7.2,  2, 
INDICATES  A  SYSTEM  OF  FIVE  SUBSYSTEMS,  THE 
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ActioQ  5; 


Frame  6: 


Action  6: 


Frame  7: 


Action  7: 


Frame  8: 


FIRST  OF  WHICH  CONTAINS  3  C<»^PONENTS,  THE 
SECOND  4  COMPONENTS.  THE  1*HIRD  7  CC»APO- 
NENTS,  ETC. 

NOTE:  YOU  ARE  LIMITED  TO  A  MAXIMUM  OF  20 
SUBSYSTEMS  AND  EACH  SUBSYSTEM  IS  LIMITED 
TO  30  COMPONENTS. 


The  answer  will  be  a  vector  of  positive  elements 
(with  no  more  than  20  elements  each  of  which  Is  a 
positive  integer  less  than  31).  Call  this  vector  P. 

ENTER  DATA  FOR  FIRST  SUBSYSTEM.  YOU  SHOULD 
ENTER  THE  MEAN  TIME  TO  FAILURE  FOR  EACH 
COMPONENT  IN  THIS  SUBSYSTEM.  THEY  MAY  BE 
IN  ANY  ORDER, 


The  answer  will  be  a  vector  of  nonnegative  numbers, 
the  total  number  of  which  is  identical  with  the  first 
element  of  the  vector  P. 

ET^TER  DATA  FOR  NEXT  SUBSYSTEM.  YOU  SHOULD 
ENTER  THE  MEJd^  TIME  TO  FAILURE  FOR  EACH 
COMPONENT  IN  THIS  SUBSYSTEM.  THEY  MAY  BE 
IN  ANY  ORDER. 

A  vector  of  nonnegative  numbers  should  be  entered. 

The  sire  of  this  vector  should  be  equal  to  the  element 
in  the  vector  P  corresponding  to  this  subsystem. 

After  the  data  is  entered,  if  there  are  more  subsystems, 
data  to  be  entered  (as  indicated  by  the  number  of  ele¬ 
ments  In  P)  repeat  frame  7  (this  is  a  loop).  If  data 
is  sufficient,  as  indicated  by  the  vector  P,  display 
DATA  COMPLETE  and  go  to  Frame  8. 

YOU  MAY  NOW  EVALUATE  THE  PROBABILITY  OF 
SYSTEM  SURVIVAL  TO  ANY  SPECIFIED  TIME.  EN¬ 
TER  THE  TIME  POINTS  FOR  WHICH  YOU  REQUIRE 
THIS  PROBABILITY.  YOU  ARE  LIMITED  TO  50  TIME 
POINTS  AND  THEY  MAY  BE  IN  ANY  ORDER.  THE 
OUTPUT  WILL  INCLUDE  YOUR  TIME  POINTS,  TYPE 


19 


AcU^di  8: 

Fr«m«  9: 

Action  9s 

Traaan  iO: 

Action  10: 

Frnmo  11: 

Action  11: 

Frnm*  12: 


»EVAL"  WHEN  YOU  ARE  FINISHED  WITH  YOUR 
13ATA  INPUT. 

The  anewer  will  be  a  vector  of  positive  values  with 
a  mardmuin  of  50  elements.  Call  this  vector  T.  When 
EVAL  is  typed,  perform  the  operation  REVAI.  P.  T,  MeR 
(defined  at  the  end  of  this  write-up)  where  this  opera¬ 
tion  evaluates  the  system  reliability  function  for  each 
value  in  the  vector  T.  The  output  vector  R  is  the  re¬ 
quired  set  of  reliabilities.  P  has  been  previously  de¬ 
fined.  The  vectors  T  and  R  are  displayed  side  by  side. 
Go  to  Frame  9. 

DO  YOU  WISH  TO  EVALUATE  THE  PROBABILITY 
OF  SYSTEM  SURVIVAL  FOR  ADDITIONAL  TIME 
POINTS? 


If  the  answer  is  yes.  go  to  Frame  8;  if  no,  go  to 
Frame  10. 

WOULD  YOU  LIKE  TO  CONSIDER  CHANGING  YOUR 
SYSTEM  FOR  PURPOSES  OF  COMPARISON?  FOR 
EXAMPLE,  YOU  MAY  WISH  TO  CONSIDER  THE  EF¬ 
FECTS  OF  INCREASING  THE  NUMBER  OF  COMPO¬ 
NENTS  IN  ONE  OR  MORE  SUBSYSTEMS  TO  INVESTI¬ 
GATE  THE  IMPROVEMENT  IN  SYSTEM  RELIABILITY, 

If  the  answer  is  yes,  go  to  Frame  1 1 ;  if  no,  go  to 
PROGRAM  TERMINATED, 

DO  YOU  WISH  TO  CHANGE  OR  DELETE  ANY  OF  THE 
PREVIOUSLY  SPECIFIED  SUBSYSTEMS? 


If  the  answer  is  yes,  go  to  Frame  1  2;  if  no,  go  to 
Frame  15. 

ENTER  A  1  FOR  EACH  SUBSYSTEM  YOU  WISH  TO 
CHANGE,  A  0  FOR  EACH  SUBSYSTEM  TO  BE  LEFT 
UNCHANGED,  AND  A  2  FOR  EACH  SUBSYSTEM  TO 
BE  DELETED.  (YOU  SHOULD  MAINTAIN  THE  SAME 
ORDER  AS  USED  PREVIOUSLY  FOR  THE  SUBSYSTEMS). 
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Action  IZ:  The  data  for  aubsyatema  correcponding  to  each  Z  ahould 

be  deleted.  The  data  for  each  aubsystem  corresponding 
to  a  0  should  be  retainad.  The  data  for  each  subsystem 
corresptonding  to  a  1  shotdd  be  displayed  for  change, 
one  subsystem  at  a  time.  Upon  display,  any  part  of 
the  subsystem  data  may  be  ’’erased"  and  replaced  by 
new  data  i.  e.,  if  there  are  any  changes  In  a  subsystem 
(if  at  least  one  1  is  entered  for  Frame  12}  then  display 
the  original  data  for  the  first  subsystem  to  be  changed, 
head  it  with  the  statement  of  Frame  13  and  go  to  Frame 
13.  If  these  are  only  deletions  and  no  changes,  go  to 
Frame  15. 


Frame  13:  DO  YOU  WISH  TO  ERASE  ANY  DATA  IN  THE  FOL¬ 
LOWING  SUBSYSTiad?  YOU  SHOULD  ERASE  ANY 
DATA  YOU  WISH  TO  ELIMINATE  OR  CHANGE. 


Action  13:  If  yes,  retain  data  display  but  replace  heading  with 
statement  of  Frame  14  and  go  to  Frame  14.  If  no, 
retain  data  dispday  under  the  heading  of  Frame  1 5, 
and  go  to  Frame  15. 

Frame  14:  ENTER  THE  DATA  TO  BE  ERASED.  THE  ENTRIES 
MAY  BE  IN  ANY  ORDER  BUT  IF  THE  SAME  NUMBER 
IS  TO  BE  ERASED  MORE  THAN  ONCE,  YOU  MUST 
ENTER  IT  AS  MANY  TIMES  AS  IT  IS  REQUIRED  TO 
BE  ERASED. 


Action  14:  Positive  numbers  identical  to  some  of  the  subsystem 

data  are  entered.  All  corresponding  elements  of  the 
subsystem  data  are  deleted,  one  for  each  erasure 
entry.  The  corrected  data  is  displayed  under  the 
heading  CORRECTED  DATA.  When  GO  is  typed,  the 
corrected  data  is  retained  in  display  with  the  state¬ 
ment  of  Frame  15  in  the  heading.  Go  to  Frame  15. 

Frame  15:  DO  YOU  WISH  TO  ADD  COMPONENTS  TO  THIS  SUB¬ 
SYSTEM? 


Action  15:  If  yes,  go  to  Frame  16.  If  no  and  there  are  no  additional 

subsystems  to  be  changed,  go  to  Frame  17.  oUterwise 
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insert  data  for  next  eubsyetem  to  be  changed  into 
Frame  13  and  go  to  Frame  13.  This  is  a  loop. 


Frame  16: 

Action  16: 


Frame  17: 

Action  17: 
Frame  18: 

Action  18: 
Frame  19: 


ENTER  THE  MEAN  TIME  TO  FAILURE  FOR  EACH 
NEW  COMPONENT  AND  TYPE  ADD  WHEN  YOU  ARE 
FINISHED  ENTERING  NEW  DATA.  NOTE;  THE  TOTAL 
NUMBER  OF  COMPONENTS  IN  A  SUBSYSTEM  MAY 
NOT  EXCEED  30. 


A  vector  of  positive  numbers  is  entered.  The  total 
number  of  these  elements  plus  the  total  number  of 
subsystem  data  left  after  erasure  should  not  exceed 
30.  When  ADD  is  typed,  the  entered  data  should  be 
included  with  the  corrected  subsystem  data  and  dis¬ 
played  under  the  heading  COMPONENT  MEAN  TIMES 
TO  FAILURE  FOR  NEW  SUBSYSTEM.  When  GO  is 
typed,  if  no  more  'iubsystems  are  to  be  changed,  go 
to  Frame  17,  otherwise  insert  data  for  next  subsystem 
to  be  changed  under  the  statement  of  Frame  1  3  and  go 
to  Frame  13. 

DO  YOU  WISH  TO  ADD  MORE  SUBSYSTEMS  TO  THE 
SYSTEM? 

If  yc*.  go  to  Frame  18;  If  no,  go  to  Frame  21, 

SPECIFY  IN  ANY  ORDER  THE  NUMBER  OF  COM¬ 
PONENTS  IN  EACH  SUBSTEM  TO  BE  ADDED  TO 
THE  SYSTEM.  FOR  EXAMPLE.  2,  5  INDICATES 
THAT  YOU  REQUIRE  TWO  ADDITIONAL  SUBSYSTEMS 
WITH  TWO  COMPONENTS  IN  THE  FIRST  SUBSYSTEM 
AND  FIVE  IN  THE  SECOND. 

NOTE:  THE  TOTAL  NUMBER  OF  SUBSYSTEMS  MAY 
NOT  EXCEED  20. 


The  answer  will  be  a  vector  of  positive  integers. 


ENTER  DATA  FOR  FIRST  SUBSTEM  TO  BE  ADDED. 
YOU  SHOULD  ENTER  THE  MEAN  TIME  TO  FAILURE 
FOR  EACH  COMPONENT  IN  THIS  SUBS  .'STEM.  THEY 
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MAY  BE  IN  ANY  ORDER. 

NOTE;  THE  TOTAL  NUMBER  Of*  COMPONENTS  IN 
A  i^UBSYSTEM  MAY  NOT  EXCEED  30. 

Actioa  29:  The  answer  will  be  a  vector  of  nonnegative  numbers^ 

the  total  number  of  which  is  identical  with  the  cor  res  •> 
ponding  element  of  PP.  If  there  are  more  subsystems 
to  be  added,  go  to  Frame  20.  otherwise  go  to  Frame  22. 

Frame  20;  ENTER  DATA  FOR  NEXT  SUBSYSTEM  TO  BE  ADDED. 

YOU  SHOULD  ENTER  THE  MEAN  TIME  TO  FAILURE 
FOR  EACH  COMPONENT  IN  THIS  SUBSYSTEM.  THEY 
MAY  BE  IN  ANY  ORDER. 

Action  20:  The  answer  should  be  a  vector  of  noimegative  numbers 

the  total  num2>er  of  which  must  be  equal  to  the  corres¬ 
ponding  element  of  PP.  If  there  are  more  subsystems 
to  be  added,  go  to  Frame  20  (this  is  a  loop),  otherwise 
go  to  Frame  21 . 

Frame  21 ;  DO  YOU  WISH  TO  SEE  THE  COMPONENT  DATA  FOR 
THE  ENTIRE  NEW  SYSTEM  ? 

Action  21 :  All  changed,  unchanged,  and  ucw  subsystem  data  are 

organized  into  the  proper  form  for  a  new  system.  A 
new  vector  PPP  is  defined  for  which  the  i^  element 
indicates  the  number  of  components  in  the  new  iU>  sub¬ 
system.  The  vector  PPP  defines  the  form  of  the  new 
system. 

If  no,  go  to  Frame  22.  If  yes,  display  data  for  entire 
system  with  each  subsystem  numbered.  Go  to  Frame 
22. 

Frame  22:  YOU  lAAY  NOW  EVALUATE  THE  PROBABILITY  THAT 
THE  NEW  SYSTEM  WILL  SURVIVE  TO  ANY  SPECIFIED 
TIME.  ENTER  THE  TIME  POINTS  FOR  WHICH  YOU 
REQUIRE  THIS  PROBAB.LITY.  YOU  ARE  LIMITED 
TO  50  TIME  POINTS  AND  THEY  MAY  BE  IN  ANY 
ORDER.  THE  OUTPUT  WILL  INCLUDE  YOUR  TIME 
POINTS,  TYPE  EVAL  WHEN  YOU  ARE  FINISHED 
WITH  YOUR  DATA  INPUT. 
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Action  iZx 

Frajmm  23: 

Action  23: 
Frame  24: 

Action  24: 


The  answer  will  be  a  vector  of  positive  values  with 
Si  maximum  of  SO  elements.  Call  this  vector  TT. 

When  EVAli  is  typed,  perform  the  operation  RBVAL, 
PPP,  TT  =  RR,  where  this  operation  evaluates  the  sys¬ 
tem  reliabliity  function  for  each  value  in  the  vector 
TT.  tnie  output  vector  RR  is  the  required  set  of  re¬ 
liabilities.  PP  has  been  previously  defined.  Display 
TT  and  RR  side  by  side.  Go  to  Frame  23. 

DO  YOU  WISH  TO  EVALUATE  THE  PROBABILITY 
OF  SYSTEM  SURVIVAL  FOR  ADDITIONAL  TIME 
POINTS? 

If  yes,  go  to  Frame  22;  if  no,  go  to  Frame  24. 

DO  YOU  WISH  TO  CONSIDER  ANOTHER  CHANGE  IN 
YOUR  SYSTEM  FOR  PURPOSES  OF  COMPARISON? 

1£  yes,  go  to  Frame  11  and  use  new  system  data.  If 
no.  go  to  PROGRAM  TERMINATED. 
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Th«  following  ia  the  FORTRAN  program  for  evaluating  the 
eyatem  reliability  program.  The  aubroutine  ia  identified  by: 

REVAL  P,  T,  M  =  R 

Where  P  ia  the  vector  which  definea  the  form  of  the  ayatem,  "T  la 

the  vector  of  time  point#,  M  ia  the  vector  of  mean  timea  to  failure 

for  every  component  in  the  ay  a  tern  (arranged  ao  that  the  componenta 

for  the  firat  aubayatem  are  firat,  for  the  aecond  subayatem  are 

aecond,  etc),  and  R  ia  the  output  vector  of  reliabilitlea.  The 

FORTRAN  program  ia  : 

SUBROUTINE  REVAJL  (JP,  T.  M,  K,  N,  R> 

DIMENSION  JP(1).  T(l),  M(l).  R(l) 

DO  20  1=1.  N 
RI  *  1. 

U  =  1 

DO  21  J=l,  K 
RU  =  1, 0 
U1  *  U  +  JP(J)  -  1 
DO  22  L=U,  U1 

22  RU  =  RIJ*  (1.0-EXPF<-T(I)/M{L))) 

U  =  U1  +  1 
RU  =  1.0-RU 
21  RI  =:  RieRU 

20  R(I)  =  RI 

RETURN 

END  (1. 1,  0.  0.  0,  0,  1.  1,  0,  1.  0.  0,  0.  0,  0) 


TASK  U  INVESTIGATION  OF  INTEGRATED  COMPUTER 


ORIENTED  information  RETRIEVAL  TECHNIQUES 

This  task  is  concerned  with  a  study  of  information  retrieval 
t«chni<}ueSf  and  the  development  and  eiqpansion  of  computer  pro¬ 
grams  to  aid  in  applications. 

Z.  1  Statistical  Word  Association 

The  edited  input  text«  i.  e. ,  with  common  words  removed 
and  the  remaining  words  normalised  to  canonical  form,  was  run 
against  the  completed  word  pair  generator  program.  This  7040 
program  produces,  for  each  sentence  in  the  text,  a  list  of  all  the 
word  pairs  in  that  sentence.  Word  pairs  are  not  generated  by  order 
but  simply  by  occurrence*  That  Is,  if  words  A  and  B  occur  in  the 
sentence,  only  one  of  the  pairs  AB  and  BA  is  produced.  Since  each 
word  is  replaced  by  its  dictionary  number,  and  since  the  number 
of  dictionary  entries  for  the  text  is  approximately  15.000,  one  ma¬ 
chine  word  is  sufficient  for  each  word  pair.  The  sentence  w'>rd 
pairs  are  serially  added  to  the  list  of  word  pairs  for  the  text.  There 
were  approximately  2.8  million  word  pairs  in  the  sample.  These 
pairs  were  sorted  by  a  standard  sort  program.  After  sorting,  an¬ 
other  7040  program  combined  equal  word  pairs  and  produced,  for 
each  non-unique  pair,  an  entry  containing  the  pair,  the  frequency 
of  each  word  of  the  pair,  the  pair  frequency,  and  the  expected  pair 
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frequency  under  the  aesumptlon  that  their  co-occurrence  In  sen¬ 
tence*  wa*  Independent,  A  7090  program  ha*  been  completed  which 
will  eliminate  those  pair*  for  which  the  observed  frequency  has  a 
probability  greater  than  .01  of  occurring,  under  the  assumption 
that  the  data  follows  a  Poisson  law.  The  calculation  of  probabilities 
is  done  with  a  routine  taken  from  the  STORM  package.  It  Is  es¬ 
timated  that  the  run  wUl  take  approximately  four  hours. 

We  now  propose  the  development  of  a  look-up  program  for 
the  word  pairs  which  remain  after  the  7090  elimination  run.  Present 
plans  are  to  use  the  7040-1301  system  in  order  to  reduce  look-up 
time. 

Z,  Z  Adaptive  Thesaurus 

The  first  part  of  Appendix  U  contains  a  detailed  description  of 
properties  and  functions  of  indexing  systems.  This  leads  to  a  statement 
of  motivation  for  an  adaptive  thesaurus.  To  fit  this  approach  into  a  gen¬ 
eral  framework,  various  kinds  of  indexing  languages  are  described. 

A  thesaurus  is  then  considered  a*  an  explicit  semantic  dictionary  in 
such  a  language.  The  paper  is  tutorial  and  contain* 

a)  a  definition  of  indexing; 

b)  the  labeling  process; 

c)  the  dependence  of  content  on  the  intent  of  the  user; 

d)  the  problems  of  keywords  which  have  to  reflect  potential 


future  requests; 
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e)  the  two  type*  of  translation  required  (document  content 

into  indexing  language  and  query  into  indexing  language); 
the  type*  of  grammar*  (association  with  direction,  prox> 
imity,  etc) ; 

g)  question  of  semantic*  (canonical  form  o£  index  terms, 

thesauri; 

h)  differences  between  machu^e  translation  and  information 

retrieval. 

The  second  part  of  Appendix  U  contains  a  discussion  of  some 
quantitative  parameters  for  the  evaluation  of  the  efficiency  and  cost 
of  indexing.  On  the  basis  of  such  parameters,  some  of  the  problems 
of  designing  an  indexing  system  are  discussed  in  qualitative  terms. 
Quantification  of  such  qualitative  properties  is  suggested  utilizing 
experimental  results  to  be  obtained  with  the  aid  of  an  adaptive  thesaurus. 
2.3  English  Text  Query  System 
2.  3,  1  Modification  of  Encoding 

One  modification  has  been  made  to  the  system  to  alter  the 
method  of  storing  data.  This  results  in  a  large  reduction  in  storage 
requirements  and  a  substantial  increase  in  operating  speed. 

A  second  modification  to  the  query  processor  is  being  made 
to  permit  more  general  and  versatile  queries. 
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Th«  new  da.tji  storage  method  is  a  second  data  corr-pretsion 
scheme  to  be  incorporated  in  the  system.  To  review  very  quickl> 
the  first  scheme  consisted  of  developing  a  word  list  of  all  distinct 
words  in  the  data  file,  together  with  their  frequency  of  occurrence, 
and  assigning  a  code  number  to  each  word  in  the  list,  using  short 
code  numbers  for  the  most  frequently  occurring  words.  The  code 
number  was  then  substituted  for  each  English  word  in  the  text,  re> 
suiting  in  a  large  reduction  in  the  amount  of  storage  required  for 
the  encoded  text.  For  the  text  being  used  -  the  claims  portion  of 
a  U.S.  patent  file  >  the  reduction  was  about  four>fold. 

The  new  data  compression  technique  is  being  used  in  the  dic¬ 
tionary  ("word  list”)  part  of  the  file.  In  addition  to  containing  the 
English  word  and  the  code  number,  the  claim  numbers  of  the  claims 
containing  the  word  are  also  stored  with  the  word.  In  the  past,  this 
was  only  done  if  the  word  occurred  in  less  than  six  claims.  It  would 
have  been  desirable  to  do  this  for  all  words,  but  the  list  of  claim 
numbers  was  excessively  long  for  many  common  words. 

The  compression  techniques  to  alleviate  this  problem  might 
best  be  llluetrated  by  an  example. 


COMPOSITE 

462, 

463, 

464. 

465 

466, 

469. 

470. 

473 

2456, 

2457, 

4428, 

4431 

4432 
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There  are  occurrences  of  the  word  “COMPOSITE"  in  13 


claims.  Since  :lalm  numbers  in  the  present  file  can  go  to  about 
18,  000,  a  naive  listing  of  numbers  would  require  5  Gecimal  digits, 
or  1  5  binary  digits  for  each  claim  number. 

The  encoding  scheme  takes  advantage  of  the  fact  that  these 
numbers  tend  to  occur  in  “bursts,"  that  is,  there  are  often  several 
claim  numbers  which  are  close  together  numerically,  and  more 
specially,  several  consecutive  claim  numbers. 

The  encoding  procedure  is: 

1}  Record  the  first  claim  number  as  an  16  bit  quantity. 

2)  Take  the  difference  between  adjacent  claim  numbers  in 

the  list. 

3)  If  there  is  more  than  one  consecutive  difference  of  1 

(i.e.,  two  or  more  consecutive  claim  numbers), 
record  a  6  bit  code  character  7  5  (octal),  followed 
by  the  number  (+1)  of  consecutive  claim  numbers 
(assumed  for  the  moment  to  be  less  that  6i). 

4)  If  step  3  does  not  apply  but  the  difference  is  less  than 

61  (75  Octal)  record  the  difference  as  a  6  bit  quantity. 

5)  If  the  difference  is  greater  than  61,  but  less  than  or  equal 

4095,  (7777  Octal)  record  a  6  bit  code  76  (Octal), 
followed  by  the  difference  as  a  1 2 -bit  quantity. 


ft)  li  the  difference  ia  greater  than  7777  (Octal)  record  a 
6 -bit  code  of  77  (Octal)  followed  by  the  difference, 
aa  an  18 -bit  quantity. 

The  choice  of  six  bite  as  a  unit  of  length  for  code  worda  waa 
partly  a  matter  of  convenience  and  partly  of  experiment.  Some 
further  attention  will  be  given  to  looking  for  a  rule  for  the  determin¬ 
ation  of  the  encoding  rules  for  more  general  files. 

The  resulting  calculations  for  the  examples  are  shown  in 
the  table  below. 


Claim  Number  Difference  Encoding 


Deciiral 

Octal 

Octal 

Octal 

462 

716 

00  07  16 

463 

717 

1 

75  07 

464 

720 

1 

-  -  -  - 

465 

721 

1 

466 

722 

1 

-  -  .  - 

469 

723 

1 

-  -  _  - 

470 

724 

1 

-  -  >  - 

473 

731 

5 

05 

2456 

4630 

3677 

76  36  77 

2457 

4631 

1 

01 

4428 

10514 

3663 

76  36  63 

4431 

10517 

3 

03 

4432 

10520 

1 

01 
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The  compressed  code  requires  90  bits,  compared  to  the 
original  requirement  of  13  x  IS  -  19Sbits.  Data  is  still  being  col" 
lected  on  the  exact  savings  possible  with  methods  of  this  type. 

2,  3.  Z  Extension  of  Query 

The  query  processor  is  being  modified  to  accept  more  general 
query  specifications.  As  first  developed,  the  processor  would  accept 
a  number,  N,  of  words  or  phrases  as  ‘'acceptance  words,  "  and  any 
number  of  "rejection"  words.  A  search  could  be  made  on  a  combina- 
tion  of  two  criteria: 

1)  find  all  claims  containing  at  least  M  out  of  the  N  phrases: 

2)  but  discard  any  claim  that  contains  any  "rejection"  word. 

For  example,  four  relevant  words  might  be  "magnetic,  " 

"storage,  "  "core,  "  "memory,  "  and  retrievals  might  be  based  on 
finding  at  least  any  three  of  the  four  words. 

However,  a  search  would  probably  be  more  accurate  if  it 
were  based  on  finding 

one  of  the  two  words  "naagnetic,  "  "core" 
and  one  of  the  two  words  "memory,  "  "storage,  " 

This  request  was  not  possible  with  the  original  system,  but 
will  be  easily  handled  in  the  modified  version. 

The  modified  system  will  accept  and  interpret  queries 
according  to  the  following  simple  rules: 
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1)  Typing  in  a  wor4  or  phrase  (i.  e.,  any  string  of  alpha¬ 

numeric  characters)  will  establish  that  phrase 
as  a  criterion  for  retrieval. 

2)  Depressing  a  "combination"  key  {one  of  the  CCC  Process 

Keys)  will  combine  the  preceding  two  criteria 
according  to  the  appropriate  rules  and  establish 
it  as  a  new  criterion,  replacing  the  previous  two 
criteria. 

3)  A  search  can  be  made  whenever  only  one  criterion  remains. 
For  example; 


Keyboard  Input 

Type  "Memory" 
Type  "Storage" 
Depress  OR 

Type  "Magnetic" 
Type  "Tape" 
Depress  AND  NOT 
Magnetic 
Drum 
AND  NOT 


Means  that  any  one  claim  should  be 
retrieved  which  contains: 

the  word  "memory" 

the  word  "storage" 

either  the  word  "storage"  or  "memory** 
or  both 

the  word  "magnetic" 
the  word  "tape" 

the  word  "magnetic"  but  not  "tape" 
the  word  "magnetic** 
the  word  "drum" 

the  word  *'magnetic"  but  not  "tape" 
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OR 


"magnetic’*  but  not  "tape"  or  magnetic 


but  not  "drum" 

which  !•  the  same  as  "magnetic"  not 
{“drum"  or  “tape'*) 

AND  {"memory"  or  "storage")  and  {magnetic 

but  not  ("drum"  or  "tape")) 

If  the  '’Search"  key  ic  now  depressed,  the  search  will  be  made 
on  the  basis  of  the  last  criterion. 

2.  3.  3  Application  of  clear  text  system  to  formatted  files 

It  became  apparent  recently  that  the  present  Unformatted  file 
system  will  work  very  effectively  as  a  query  system  for  a  formatted 
file.  We  are  considering  creating  a  test  file  to  verify  the  ease  of  use. 
2.3.4  Processing  of  data 

An  enlarged  file  of  patent  claims  has  been  reprocessed  to 
create  a  disk  with  the  new  compressed  format.  The  new  disk  will  be 
tested  in  the  near  future. 
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TASK  m  XHVSSTXGATION  OF  MULTX-PROCESSIKC 


TKCHNIQUBS  FOR  INT£1^LXC£34C£  INFORMATICS  PROCESSIHC 

Thia  task  la  coacar&ed  with  the  exteaaion  operatio&al  zxmltt*' 
programmiim  ayatema,  aod  the  deveiopmaxit  of  procedurea  for  muitipl«> 
conaoie  appUcati^a. 

During  the  period  c<ivered  by  thia  report*  program  proceaaing* 
loading,  and  teating  aa  an  integrated  operation  waa  aucceaafuUy  per^ 
formed  \mder  control  of  the  AN/GYA  multiproceaaor.  Thia  feature 
permitted  the  updating  of  the  library  of  the  atatiatical  language  during 
AN/ GYA  monitor  operation.  Thia  feature  ia  eapecially  uaeful  for 
the  modification  and  extenaion  of  programa  for  all  applicationa  of 
the  AN/GYA  ayatem. 

The  programming  for  the  eatabliahment  of  the  link  between 
the  FMS  ayatem  and  the  AN/GYA  monitor  haa  progreaaed  to  the  atagc 
that  firat  experimenta  <m  operation  are  expected  toward  the  end  of 
July. 

A  dynamic  allocation  acheme  of  tapea  haa  been  included, 
which  permitted  multiproceaaing  of  all  AN/GYA  programa  with 
SORT/M£RG£  operation.  Thia  mode  of  operation  waa  not  poaaible, 
in  the  paat,  for  aome  of  the  applicationa  (e.  g. ,  the  atatiatical  Ian- 


guage). 


TASK  IV  INVESHGATiON  OF  COMPUTED 
CONSOLE  INPUT  AND  DISPLAY 


This  taisk  is  concerned  with  k.  study  of  gtkj^ic  devices  for 
input  and  out|mt  in  a  snan-computer  interface.  During  the  period 
under  review,  emphasis  has  been  laid  on  a  study  of  methods  of  proc> 
easing  graphic  and  text  data  for  vis\ial  presentation.  In  context  with 
the  earlier  works  reviewed,  the  theories  of  languages  for  picture 
processing  are  being  investigated.  A  special  study  is  being  carried 
on  into  the  presentation  of  "display"  mathematical  workings. 

4. 1  Processing  of  GrafAic  and  Text  Data 

4. 1. 1  Bunker -Kamo  Corporation  -  Professor  Glenn  J.  Culler 
The  early  work  of  Culler  and  Fried  in  California  indicates 

a  certain  success  in  the  provision  of  on-line  console  facilities  for 
scientists.  Certain  psychological  ineights  obtained  by  them  may 
prove  of  general  value  in  the  design  of  consoles,  vis:  It  is  found 
that  continuous  console  operation  for  less  than  one  hour  or  more 
than  two  hours  tends  (o  provide  the  user  rather  unsatisfactory  re¬ 
sults.  Also  a  computer  reaction  time  of  less  than  1/10  second  is 
unnecessary;  however,  a  delay  of  more  than  l/IO  second  begins  to 
make  the  human  operator  uneasy. 

The  Culler  report  describes  an  on-line  Computing  Center 
for  Scientific  Probleme.  It  is  designed  and  programmed  so  that 
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oa  the  interface,  FtJNCTIOHS  srather  ihaa  NIJ9X&£ES  are  the  elementa 
oa  which  the  commaode  ofMirate. 

Graphical  outpiut  la  via  2-17  inch  CRT**  with  line-drawing 
capability.  Alphanumeric  ou^tut  la  via  an  eight  inch  CRT  and  a  Flea- 
nwriter. 

Thirty  COMMAND  button*  are  provided  which  can  be  defined 
directly  or  recuraively  or  by  keyed-ln  programming,  witii  the  further 
poaaibility  of  multiplying  the  number  of  available  command*  through 
a  ayatem  of  ^'overlay**  -  each  overlay  being  called  just  like  a 
COMMAND. 

The  ITUNCTJONS  in  the  machine  are  represented  by  a  max¬ 
imum  of  iOl  samples  (100  intervals).  Thus  the  equivalent  of  an  "ac¬ 
cumulator"  can  be  thoui^t  of  as  lOi  memory  words.  Twenty -four 
buttons  are  provided  in  order  to  identify  function  storage  shelves 
and  a  final  set  of  buttons  provider  the  arithmetic  4-,  0.  1.  .  .  9. 

Because  the  operator  can  define  new  "commands"  (e.  g. . 

SINE,  COTH  INVERSE,  etc. )  at  the  keyboard,  he  finds  it  "possible 
to  build  a  representation,  in  the  computer,  of  those  analytical  tool* 
he  believes  valuable  for  a  particular  problem  or  problem  area... . 
he  is  able,  using  only  the  concepts  of  classical  mathematics,  to 
create  hi*  own  machine  language,  one  tailor -nvade  to  his  own  needs." 


A  ^rtibb«jr  report  on  tikis  work  wiU  be  given  eiter  eome  clsr- 
iilcstioiis  have  been  received* 

4*  I,  2  Ihe  Algorithmic  Theory  of  Lianguage  presented  by  Ross  and 
the  I*ist«Structure  approach  used  by  Evans  and  others  are  found  to 
overlap.  Most  practical  approaches  to  picture  processing  have  been 
f<mad«  however*  to  use  rather  specialised  mechanisms  and  it  is  be> 
lieved  ^at  It  will  be  some  time  before  a  generally  suitable  formal 
theory  is  developed.  This  area  of  Study  and  Investigation  does  not 
yield  rapidly  to  a  clear  understanding  of  the  processes  at  work  <tad 
since  it  is  in  the  greatest  state  of  flua,  will  need  more  and  continuing 
work. 

4. 1.  3  "Display"  Mathematical  Workings 

Console  text  and  graphical  output  systems  have  continuously 
increased  their  capability  from  alphanumeric  (5x7  bit)  characters 
to  lines*  circles*  conics  and  more  complex  figures.  However,  the 
rathitr  important  area  of  presenting  mathematical  workings  has  not 
yet  found  any  soltition.  Approaches  that  are  being  studied  by  us  in> 
duds  the  "Teager  Table"  system  of  analog-digital  representation  (a 
working  model  will  be  inspected  shortly  when  it  has  been  installed 
at  MIT)  and  the  work  of  Minsky  and  his  students. 

Mathematical  display  equations  are  highly  stylized  devices 
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for  communicating  cmicej^  and  reiation»hi|Wi.  Th«  optical*  p^y* 
chological  and  oparaticmal  bases  for  '‘standard**  representation  are 
being  investigated  through  a  study  of  American  Mathematical  Society 
and  A.l.  P.  practice*  ae  well  ae  of  such  standard  publications  as 
the  Proceedings  of  the  Royal  Society,  ZAMM*  Journal  of  the  SIAM^ 
etc,  enviously  much  of  what  ie  accepted  today  as  "standard  practice" 
is  due  to  the  exigencies  of  typewriters*  typesetting  machines  and 
printer*s  type.  Hot  all  these  conventions  are  valid  or  useful  for 
CRT  displays. 

As  yet,  very  little  work  is  published  in  this  area  and  hence 
reliance  is  laid  on  personal  discussions  with  other  workers  and  our 
own  detailed  study  of  certain  classes  of  problems  in  mathematical 
display. 

4,  Z  Systems  Congiderations .  The  Engelbart  Report 

The  man-machine  information  system  at  the  Stanford  Research 
Institute  is  based  on  the  philosophy  of  a  report  which  projects  lines 
of  research  in  the  field  of  Text  and  Graphic  on-line  man-computer 
interaction.  This  is  the  report  entitled  "Augmenting  Human  Intellect  - 
A  Conceptual  Framework"  by  D.  C.  Fngelbart  (Stanford  Research  Inst. 

In  this  work,  Engelbart  finds  a  perspective  within  which  man- 
machine  interaction  may  effectively  be  viewed.  By  analysing 
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intellectxukl  activity  itceii  and  det«rminiag  Us  basis  Lr.  linguistic 
structure  and  symbol  manipulative  skills,  be  develops  a  hierachy 
of  augmentation  systems.  Below  we  shall  paraphrase  his  analysis 
of  human  intellectual  activity  and  list  some  of  the-  capaoilities  en¬ 
visioned  for  a  well-developed  augmentation  system. 

Stages  u>i  Development 

a*  Concept  Manipulation 

The  ability  to  ''visualize'*  abstractions  and  conceptions. 

Concepts  are  non-'  erbalized  and  unprocessed. 

b.  Symbol  Manipulation 

Important  step  toward  tbe  ability  to  think  in  symbols  rather 
than  specific  concepts.  Emphasis  here  is  on  internal  storage 
and  manipulation,  not  communication.  Example:  A  shepherd 
can  keep  track  of  his  flock  by  counting  sheep  rather  than  by 
recognizing  them.  This  amounts  to  having  a  crude,  internal, 
language. 

c.  Manual,  External  Symbol  Manipulation. 

The  next  stage  is  the  facility  to  store,  externally,  the  sym¬ 
bols  used. 

Rate  and  Direction  of  Evolution  in  Thinking 

There  arc  theories  that  class  languages  among  "self-organizing 
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where  «vet'  &  |»erlo4  of  time  quite  eubtie  rel&tionshipt 
among  interacting  element*  can  significantly  Influence  the  evolution 
of  the  system. 

Koraybski  and  Whorf  have  argued  that  the  language  we  use  ai> 
fects  our  k.hinklng  to  a  conaiderable  extent.  They  say  that  lack  of 
word*  for  some  types  of  concepts  makes  it  hard  to  express  these  con> 
cepte.  This  leads  to  a  Whorfian  Hypothesis:  The  world-view  of  a 
culture  is  limited  by  the  structure  of  the  language  which  that  society 
usee.  Engelbart  offers  a  Neo-Whorfian  Hypothesis  based  on  the 
preceding  discussion. 

Both  the  language  use  by  a  culture  and  the  capability  for  intel¬ 
lectual  activity  are  directly  affected  during  their  evolution  by  the 
means  with  which  individual*  control  the  external  manipulation  of 
symbols. 

The  Neo-Whorfian  Hypothesis  suggests  that  using  a  computer 
for  manipulation  leads  to  a  fourth  stage  of  development  in  Thinking, 
d.  Augmented  External  Symbol  Manipulation  distinguished 
by  the  Very  Rapid  Rate  of  manipulation  with  a  Minimum 
Amount  of  Information  supplied  by  the  human. 

In  this  stage,  both  the  types  of  manipulation  and  the  rate  of 
creation  of  new  symbols  and  new  formats  in  which  they  can  be  mani¬ 
pulated  nu-y  be  expected  to  be  considerably  greater  than  before. 
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Specific  Graphic  Capabllitlec  of  a  Computer 

Engelbart  visualises  an  aagmentalLon  system  of  the  future  in 
operation,  describing  in  general  terms  the  capabilities  of  the  com¬ 
puter  and  Interface.  These  may  be  divided  ltAo  two  general  classes-- 
systems  for  accept ing  symbol  structures  from  a  huma.n  operator,  and 
systems  for  enabling  the  h'uman  to  manipulate  symbol  structures  in 
an  augmented  way. 

As  aids  to  feeding-in  text,  the  following  facilities  are  visualised: 

2  Display  Screens  -  Used  horizontally,  rather  like  drafting  tables. 
One  shows  the  input  string  and  the  other,  a  feedback,  pro¬ 
vides  channel  from  the  computer  (see  below). 

2  hightpens  -  One  for  each  hand  or  screen;  used  in  conjunction 
with  keysets. 

2  Keysets  -  One  for  each  hand. 

The  keys  are  not  merely  alphanumeric,  but  allow  for  additional 
symbols  and  for  use  in  a  ’’shorthand"  mode  for  rapid  insertion  of 
text.  Single  keys  for  bigrams  and  trigrams  such  as  "ed"  and  "ing" 
provide  speed  without  resorting  to  phonetic  shorthand. 

The  keys  can  also  be  used  to  call  for  dictionary  entries,  syno¬ 
nyms,  antonyms,  etc.  and  to  attach  abbreviated  labels  to  long  strings. 

Keys  can  also  be  used  to  structure  input  text  in  ocher  forms 


42 


than  a  simple  string;  for  exa.mple.  in  developing  an  argument,  the 
points  would  be  listed  vertically. 


Artifact  processes  to  aid  in  the  manipulation  of  alj^nomeric 
text  are  visualised  as  functioning  much  as  a  *'copy  editor". 

Functions  provided  by  lightpen-keyset  combinations  are  de¬ 
signed  to  provide  flexibility  to  the  user  in  changing  and  6-  ^  ing 

ideas,  argument- chains,  etc. 

Delete  Word/ Character ;  I^'sert  Word/ Character ;  Re-Justify 
are  the  more  obvious  "proofr  services.  On  a  higher  level, 

are  Change  Paragraph  Break;  Delete  String;  Move  String  to  New 
Position  (string  to  be  moved  and  new  location  indicated  by  lightpen); 

Re -Adjust  Margin;  Change  to  Double  Colximn  Format;  Adjust  Column 
Widths  so  that  two  parallel  columns  are  equal  length;  Change  Struc- 

f. 

ture  of  text  presentation  from  string  to  nodal  to  lattice,  etc. 

It  is  of  interest  to  note  here  that,  allowing  for  cruder  lightpen 
facilities,  the  lightpen- cons  ole  Edit  program  developed  by  Inforonics 
performs  many  of  the  functions  described  above,  and  is  structured 
to  permit  all  of  them. 

Variable  column  width;  Re -justification;  Delete  Character/ 
Word/Sentence;  Insert  Character /String,  etc.  are  already  integral 
to  the  Inforonics  Edit/Display  program,  for  which  a  special  keyset- 
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<,>ie  wa»  developed.  A  larger  memory  than  provided  by  the 
PDP-i  wo\jld  enable  provision  of  the  shorthand^  labelling  of  strings 
and  dictionary  facilities. 

Work  performed  on  man-machine  information  systems  at 
Stanford  Research  Institute  following  the  Engelbart  Report  will  be 
covered  next,  on  the  basis  of  the  SRI  Report  of  November  1963  and 
the  Users'  Guide  for  the  SRI  system  as  of  April  1964.  Facilities 
developed  appear  to  be  parallel  to  those  developed  by  Inforonics 
with  some  additional  sophistication.  In  particular,  the  indexing  and 
storage  of  personal  files  for  rapid  access  and  display  has  received 
special  attention. 
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TASK  V  INVESTIGATION  OF  AUTOMATED  PROGRAM 


DEBUGGING  TECHNIQUES 

Tbi«  ic  concerned  with  a  atudy  o£  methods  and  develop* 

mwat  id  edmiHUeir  programs  which  permit  debugging  of  program# 
or  program  segment#  from  a  console. 

Temporary  reassigzunent  of  programmer#  during  March  and 
April  caused  an  interruption  of  progress  on  this  task.  During  the 
last  month  covered  by  this  report,  programming  has  been  resumed. 
The  coding  for  the  facilities  described  on  pages  40-43  of  Quarterly 
JReport  No.  1  is  now  actively  under  way.  These  facilities  are  ex¬ 
pected  to  be  ready  for  testing  in  early  July. 
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APPENDIX  i 


NONCENTRAL  STATISTICAL  DISTRIBUTION 
PROGRAMS  FOR  A  COMPUTER  LANGUAGE* 


Rolf  E.  Rargmano.  Sakti  P.  Ghosh 

IBM  Watson  Research  Center 
Yorktown  Heights,  New  York 


ABSTRACT:  Some  of  the  numerical  analysis  problems  have  been 
discussed  in  connection  with  evaluating  the  incomplete  probability 
integrals  and  also  the  quantities  of  commonly  used  statistical  non* 
central  distributions,  e.g.,  noncentral  chi-square,  noncentral  Beta, 
noncentral  F  and  noncentral  t  distributions.  The  methods  most  suit¬ 
able  for  digital  computers  from  the  point  of  view  of  computer  time  and 
accuracy  have  been  discussed.  FORTRAN  routines  for  evaluating  the 
incomplete  probability  integrals  and  quantities  of  these  noncentral 
distributions  have  been  developed  and  are  given  in  this  report 


*  This  work  was  supported  in  part  by  Air  Force  Research  Contract 
AF19{602)  -3303 
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i.  INTRODUCTION 


In  an  earlier  report  (3),  the  authors  discussed  some  numerical 
techniques  used  in  the  development  of  statistical  distribution  programs 
for  a  statistical  computer  language-  Included  in  this  report  were 
Fortran  programs  for  the  Normal,  Gamma,  Beta,  Student's  t.  and 
F  distributions.  The  present  report  extends  the  discussion  to  the 
noncentral  forms  for  these  distributions  and  includes  the  correspond¬ 
ing  Fortran  programs. 

Though  the  noncentral  distributions  are  very  useful  in  statistical 
analysis  yet  very  little  attempt  has  been  made  to  develop  good  pro¬ 
grams  because  of  the  complex  nature  of  the  noncentral  distributions. 

The  difficulties  of  programming  are  greatly  increased  when  high  degree 
of  accuracy  and  wide  range  of  admissibility  of  the  parameters  are 
required.  To  achieve  a  desired  degree  of  accuracy  certain  boundary 
conditions  had  to  be  imposed.  These  are: 

(1)  All  the  parameters  of  the  noncentral  distributions  were 
restricted  to  the  range  10"®  to  10®.  (Accuracy  of  the 
results  outside  this  range  becomes  doubtful  due  to  the 
countless  arithmetic  operations  involved  in  the  calculations.  ) 
(Z)  Regardless  of  the  choice  of  the  input  (parameter  values, 
abscissa,  or  probability)  the  results  were  required  to  be 
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correct  to  »t  five  significant  digits.  Due  to  this 

requirement  the  calculation  time  for  some  of  the  routines 
may  be  lengthy  {2  or  3  minutes)  when  the  value  of  the 
noncentraiity  parameter  is  large 
Various  approaches  for  evaluating  noncentrai  distributions  by 
approximate  formulae  have  been  suggested  in  the  literature  f8).  (10) 
but  upon  investigation  it  was  found  that  most  of  these  give  no  more 
than  two-place  accuracy  for  values  of  noncentraiity  parameters  as 
large  as  50.  Since  programs  for  central  distributions  had  already 
been  developed  by  the  authors  0) ,  an  attempt  was  nriade  to  make  use 
of  the  fact  that  a  noncentral  distribution  can  often  be  expressed  as  an 
infinite  sum  of  weighted  central  distributions,  with  the  weights  being 
Poisson  terms.  It  was  discovered,  however,  that  with  the  latter 
approach  the  programs  consumed  too  much  time  and  it  was  extremely 
difficult  to  maintain  sufficient  accuracy.  Fortunately,  a  simple  modi¬ 
fied  technique  for  evaluating  the  infinite  sum  greatly  increased  the 

accuracy  and  decreased  the  computation  time.  This  approach  is  used 

2 

in  the  present  report  to  evaluate  the  noncentral  x  and  noncentral 
Beta  distributions.  It  is  also  shown  that  these  results  can  also  be 
used  to  evaluate  the  noncentral  Gamma .  F,  and  t  distributions. 
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2.  NONCEXTRjVL  Cm-SQUARE  DISTRIBUTION 


The  density  function  of  the  noncentrai^  variate  is  given  by  (2  1) 

y)  w  S'  e  (X/2)  e  y  (2.  i| 

-*  2  r  { ir.  /  2  +  j ) 

where  X  is  the  noncentraiity  parameter  and  m  is  the  degrees  of  free¬ 
dom.  The  routine  developed  for  evaluating  the  incomplete  probability 
integral  of  the  noncentral  is  defined  by 

NCHIX  (X.  DF,  C,  P,  Z)  {2.  2) 

where  X,  DF,  C,  P,  and  Z  are,  respectively,  matrices  (all  of  the 
same  size)  of  abscissas,  degrees  of  freedom,  noncentraiity  parameters, 
probabilities,  and  ordinates.  The  first  three  are  input  matrices,  while 
P  and  Z  are  output  matrices.  For  each  x  in  X  the  routine  (2.  2)  calcu¬ 
lates  the  probaoility 

f(\,  m,  y)  dy  {  2.  3) 


■  J 


and  the  ordinate 

z  =  £  (\,  m,  y) 


with  m,  \  ,  p  and  z  being  the  elements  of  DF,  C,  P.  and  Z,  respect¬ 
ively,  wMch  are  in  the  d(irT'X€  *13^  X  sO  iX  ■ 
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Th«  inverse  routine  !•  given  in  4) 
NCHIP  {P,  DF,  C,  X) 


(2.4) 


This  routine  evaluates  the  abscissa  (quantities)  for  a  set  ol  input 
matrices,  P  (probabilities),  DF  (degrees  of  freedom),  aiwi  C  (noncen¬ 
trality  parameters).  The  result  is  a  matrix  of  quantities,  X,  each 
element  of  which  is  associated  with  the  corresponding  elements  of 
the  input  matrices. 

The  routines  (2.  2)  and  (2.4)  require  the  direct  or  inverse  evaliia- 


tion  of; 

(X,m) 

a 

■  4 

f  f(L  m,y}  dy 

i 

ao 

*  X*  J^(m+2j) 

(2,  5) 

i*o 

where 

P  (\/2,i) 

m  e 

^^^(x/2)'^  /  r(j4i) 

(2.6) 

and 

J^(m+2j) 

X 

■  J 

r  ^..y/2  y(m+2j-2)/2 

2(m+2j)/2  r((m^2j)/Z) 

(2.7) 

A  methoc.  tor  evaluating  J^Cm)  has  been  discussed  in  detail  by 
the  authors  (3)  ,  h  wever,  a  faster  method  based  on  continued  fraction 
will  be  discussed  here.  This  method  is  due  tO  Laplace  and  is  given  in 
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€il  •  ft 


U  t  »  I  t 


^5  ^ 


(4),  A  shgfU 


:'.  ■-.  I.4pj&Le'B  £«..  r.Ti  K. 


r 

J 


“U  a  - 1  ,  -z  a 

*  u  du  E  e  z- 

FTa) 


i  i'-a  1  Z-a 
a  +  It  z  +  i  + 


2  3  ~  a  3 

a  4  1  4  2  4 


(2.  «) 


Jjj(m  42j)  may  be  evaUxated  by  substituting  &  ~mj  2  +  j,  z,~xll  in 
(2.8)  and  subtracting  the  result  from  unity.  By  using  fifty  terms  in 
.he  continued  fraction  it  is  possible  to  obtain  at  least  12  decimal 
places  accuracy.  Unfortunately,  the  continued  fraction  approach  can- 
rot  be  used  for  the  entire  range  of  the  parameters.  It  was  found  that 
for  the  range  of  the  parameters  given  by  (2.  9) 

4<m  +  2j  <  10  CO  and  x>nri-2andz>.005  (2.  9) 

it  was  appropriate  lo  evaluate  J^Cm  -f  2j)  by  using  continued  fraction. 
Also,  when  m  +  2 j  >  ICOOthe  Hilferty-Wiison  (12)  transformation 
proved  to  be  more  effective,  while  in  the  rernainir.g  range  ui  tne 
parameters  the  originai  procedure  preser.teu  by  tne  uu:'.>jrs  (  3)  are 
more  efficient.  Additionally,  when  the  none  ent  rality  parameter  is 
larger  than  2000  (\>  2000)  the  Hiiierty-Wilson  transiormation  has 
been  used  to  calcuiaie  P(x./2,  j). 
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i ri  t'  v  ti  i  t  i  r*  t  n  i  n  1 1  i  *1 1  £  s  ^ .  .j  i  ^ *  i  i  .'^  **  ^  *  i  ^ ^  o  r  *  *  .a.  . »  s 

observed  that  tt  was  mure  convertief.!  to  sturt  ttu-  a  amrr,.. '. .  ur.  a'  the 
modal  val'je  j  s  \f2,  !  and  accumuiatc  teirr.a  u?.  uithe.-  stde  by 
increasing  and  decreasing  j  until  the  terms  Lecunie  atmabier  than  the 
desired  degree  of  accuracy  or  j  becontes  aero.  I  nts  m<.tin.d  of  build¬ 
ing  the  infinite  sum  by  starting  at  the  modai  terni  :i..3  been  u.sed  in 
ail  the  other  noncentral  distributions  discussed  in  this  paper. 

in  evaluating  the  inverse  routine.  Newton's  method  {9)  of  solving 
equations  has  been  used  and  if  Newton's  method  laiied  to  converge  then 
Korner' s  method  has  been  used.  For  the  choice  of  tne  initial  point  it 
has  been  found  that  nifX.-2  is  quite  satisfactory. 

3.  NONCENTRAL  BETA  DISTRIBUTION 

The  density  of  the  noucenthal  beta  distribution  is  given  by 

f(X,m,n,y)  b  ^  (x/2)'  y"’''*''’' ‘  |1 -y)"' '  ,, 

The  routine  for  evaluAting  the  incomplete  probability  integral 
and  the  ordinates  of  (3.  1)  is  given  by 

NCBTX  (X.  DFl,  DF2,  C,  P,  Z)  (3.2) 
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.s.r.t»rs‘  «s  ( t’if  .i  r  gj  •,*  r  :it”  fil  s  r?  •:  .'  r.  ■  *  .i  .  .  ^  \'f  ■a.j.'T.-  :  j'  .■  i;  s« - 

ScCti*..>n  L.  Os  course,  now,  two  jt  rti  n,.s;ro  »' ■* ,  D’t  . 

and  'DT2.,  are  needed  The  first  of  tiiess*,  DF  S  ,  ,:.voIves  tr,e  cU-grees 
of  freedom,  m,  and  the  second,  DF<f,  applies  to  n  The  routine  (3.  1) 
computes  for  each  value  x  of  X  and  corresponding  parameter  values 
rrs,  n,  and  X  (i .  e  .  ,  elements  of  DF  i ,  DTZ,  and  C  in  the  same  piosition 
as  X  is  in  X),  the  probability,  p,  and  ordinate  2.  (tne  corresponding 
elements  of  P  and  Z).  The  value  of  z  is  the  ordinate  of  (3,  i)  and  p  is 
defined  by 

X 

P  =  (X,  Wi*  n)  »  ^  f(X,  m,  n,  y)  dy  {3.3) 

The  inverse  routine  given  by 

NCBTP  {P.  DFl,  DF2,  C,  X)  (3.4) 

computes  the  quantities,  x,  for  a  given  probability,  p,  and  specified 
parameter  values  m,  n,  and  X»  where  these  symbols  represent  the 
same  quantities  as  defined  for  (3.  2). 

For  evaluating  the  routine  (3.  2)  the  incomplete  probability  integral 
was  written  in  the  form 

oo 

I^(\.  wi*n)  ■  ^  P(X/2,  j)  n)  (3.5) 

j*0 
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A  n«“  re* 


lA 


I  {m-  j,  n) 

X. 


(i 


ct  y 


(3.  6) 


n) 

is  the  inc oiTipie t e  pr tjb<ibiiity  intcjjril  ul  «*  cefitrA*  Lef.^  distribution. 

(3.6)  may  be  evaluated  by  the  technique  discussed  uy  the  authors  (3). 

When  the  parameters  m  and  n  are  both  in  the  neighborhocd  of  unity 
{specifically,  when  each  is  within  I  10'^)  (3.  5)  reduces  to  very 

simple  forms,  w'hich  can  be  used  directly  instead  of  going  t,o  the 

-8 

general  procedure.  When  X  =  0  (specificaUy,  0  <X<10  *^)t  m  ^  1,  n*»  1, 

then  I^(X,  ni,  n)  ~  X  and  f(x,  m,  n,  x)  *=  i  .  Again,  when  x  5|t  0  (specific 
*"3 

cally  X-^iO  ).  m  ~  i,  n  «  i,  then  I^(x,  n)  x  Exp  (xx-x)/^! 

and  f('K,  m,  n,  x)  c  (l-t  x  x/2)  Exp  [^{xx-x)/2j.  For  developing  the 
infinite  sum  the  same  method  as  discussed  in  section  2  has  been  used. 

For  the  inverse  routine  (3.4)  the  same  method  of  numerical 
solution  of  an  equation  as  discussed  ii  Section  2  was  used.  The  prob¬ 
lem  of  choice  of  a  good  starting  point  (xq)  was  solvid  by  trial  and 
error.  The  following  values  of  xo  giv'en  in  (3.  7)  seem  to  work 
sat.sfactor  y 

For  p  <  .95,  X  a  {m-i+X/2)  /  (m-i-n- 2+ X/ 2) 

(3.7) 

For  p  >  .95,  ^  vm-i+3x/2)  /  {m+n-2s-3x/2) 
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The  routine  for  evaluating  the  incomplete  probability  integral  and 
the  ordinates  of  (4,  i)  is 

NCFX  (X,  DFi,  DF2,  C.  P,  Z)  (4.2) 

where  the  arguments  are  matrices  and  have  been  defined  in  Section  3. 
The  routine  (4.  2)  computes  for  each  value  x  of  X  and  corresponding 
values  iii,  «,  X  (1.  c.  ,  elements  of  DFI*  DF2,  and  C  in 
the  same  position  as  x  in  X),  the  probability,  p,  and  the  ordinate,  z. 

The  inverse  routine,  given  by 

NCFP  (P,  DFI.  DF2,  C,  X)  (4.3) 

computes  the  quantities  x,  for  given  probabilities  and  parameter 
values  (similar  to  the  inverse  routine  defined  in  the  previous  section, 
but  for  F  distribution). 

It  is  veil  known  that  the  transformation 

(my/n)  /  (1+  my/n)  (4.4) 
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trAnsf  rrT,9  the  r,  - -r...  i  .  F  -Cist  ri:;- i- -n  t-j  none  e  nt  r^s  i  b  et  a  distribu- 

tiun  w.t?'.  parametifrs  iri  ^  and  n/ Z  Tnos, 


F 

,  r 

ipirn.n)  .  j  f( X*  ni,  n,  y  )  dy 
0 

m/2+i-i  ,,  ,  r./2-l 

X  _ 

/2) 


(4.  5) 


where  Fq  =  (mF/n  )/{I  +  mF/n).  Thus,  {4.2}  was  obtained  by  making 
the  necessary  changes  in  (3.  2).  For  evaluating  the  ordinate  of  {4.  1) 
the  ordinate  of  noncenlral  beta  has  to  be  multiplied  by  m/n, 

The  inverse  routine  (4.  3)  was  obtained  from  (3.4)  oy  first  caicu- 
latinc  the  Beta  value  for  given  value  s  of  p,  m,  u,  and  \  and  then 
making  the  neceA-.ary  I ransformatic  n  to  get  the  F-value. 


5,  NONCEtsTRAL  T  DlhTRIHUTI ON 

The  density  of  the  noncentral  t -distribution  is 


^,y) 


P(X/Z,  j/2) 


,  j/2 

(y^/N) _ 


(5.  1) 
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I  he-  T\j>  ,ne 


-r-  \v  ,  -T*  -  \  f  •  .- '  p,  ;  -- 

•  %  Kl^  A  .1%  ^  A  f  A  Ir  f  *■  i  f 

will  calc»ilaie  tae  incomplete  prub&buity 
t -distribution.  The  arguments  are  niatr 


i/itej^rai  >•;  the  nor, central 
ice  »  of  input  a Tid  wutp,_it 


parameters.  For  a  given  t  □£  T  the  routine  will  calculate  the  incom¬ 
plete  probability  integral 


t 

p  »  l^(XsN,  t)  «  J  f{X,N,  y)<iy  (5.3) 

where  N,  x  ,  and  p  are  the  corresponding  elements  of  DF ,  C,  and  P 
matrices.  The  routine  will  aiao  calculate  the  ordinate  z  given  by  (5,  1). 
The  inverse  routine 


NCTP  (P,  DF.  C.  T) 


(5.4) 


calvu^ates  ttic  uai.titic s .  t,  foT  gtvCii  p.  a.*d  ^  which  ii.re  the  ele¬ 
ments  of  P*  DF,  and  C,  respectively. 

There  are  a  few  different  methods  for  evaluating  the  incomplete 
probaoility  integral  of  the  noncentral  t-dist-ibution,  but  as  the  aim  of 
the  present  system  of  programs  was  to  maKe  u5e  of  the  routines  already 
developed,  hence,  the  method  based  on  incomplete  central  beta  distri¬ 
bution  was  used.  It  is  easy  to  see  (4)  that  (5.  3}  can  be  written  as 
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k.  i  ^ 


<Xi 


4.  V" 


^  P(K/2,  j)  L.  (j  +  7  .  N/^) 
G  'o  ^  . 


(5.  5) 


wh^re  s  {t*^/N)  /  (l  +  t^/N) 


(5,6) 


1 

3,^  (j  +  i,N/2)  and  (j  !-  — <  N/2)  are  the  incomplete 

Beta  functions  defined  in  (3.  6).  The  sign  in  front  of  the  last  term  in 
(5,  5)  is  the  same  as  the  sign  of  t.  The  ordinates  (5.  1)  can  also  be 
calculated  from  the  ordinates  of  a  central  Beta  distr . bution.  On  simpli¬ 
fication,  {5.  1)  may  be  reduced  to 


oo 


fiX^N 


«%t)  .  T 


1/2  ,  ,3/2 

p(x/2,j)  i — _ 


(V  ^^2) 


03 


i  ^  P(K/2.j+2)  '^n"‘'(i-^o) 


1/2  i/2 

«  e  (T  j  +  I,  N/2)  (5.7) 


N 
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.  i  1 


er 


1 


t  and  &(T 


,  N/2}  are  thf  :jrd;;,ate» 


of  a  central  :>eta  at  str  loution  at  >  for  jaararneter^  ij  *  ^ 

o  ^ 

and  (j  +  1,  r espectiveiy . 

Kow  IS.  i)  can  he  evaluated  very  easily  i  rotr.  (S,  5)  ar.d  (S.  by 
the  same  technique  aa  used  fi>r  evahi^it  i:.,a  (i.  Z; . 

The  inverse  routine  (5-4)  ha»  been  evaluated  ny  usirg  NcArion's 

method  of  sol'v.ng  equations,  on  the  T  -scale  and  making  the 

o 

proper  t  ranaformaiion  to  obtain  t.  The  starting  punt  (x^)  for  K'ewtor.'s 
method  was  determined  by  trial  and  error  and  the  following  w'orked 
quite  satisfactory. 

»  i-p^  for  I  p!  <  iO**^ 

-  5 

a  1  -p,  for  1-p  <  10 


*o  ’  !  P~Pl  i  ■  P“Pl5  £ 


*  p,  otherwise 


(5.8) 


where  p^  si_l-  ^  P{  X/ 2.  j  4 )J  /2 

j=0 
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8.  FORTRAN  PROGRAMS 

In  this  section  the  FORTRAN  programs  for  the  routines  d.scusscd 
in  the  previous  sections  are  presented.  These  programs  are  written 
in  double  precision  as  subroutines.  They  can  be  rur.  without  mumfica- 
tions  on  an  IBM  7  090  computer. 
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o  o  o  /'3  cs  o  o  a  a  a  a  a  a  a  a  a  a  Q  a  a  a  a 


SU«ROUi  I  ME  NCHiX()t:2.A&.8G,PG#ORG) 

DIME  NS  SON  X2  S  n .AGl IS  »SG? i )  »®GS i !  .QRGf IS 
COMMON  NRA.NCA.NR8.NC8.NRC.NCC.NR0.NCD 

00  201  iCiS-l.NCA  .  .  _ _ 

DO  201  Xi2=I.NRA 
<A=Sji;i*i-l)»NRA^A12 
D  f'CAMsO. 

FIRES=t0.  ,  _ 

F I0RD*0. 

G2-0.  _ _ _ _ 

P  =  r>. 

0RD=0.  _ _  _ 

X*0. 

G2-AGtKAS  _ _ 

FLAM^PGSFAi 

...  Fl.AM5FtAM/a.._ _ _ _ _ _ 

X=X2ilCA) 

IFf&2S  199.199.IQQ  . 

100  iFSXS  199.90*90 
90  IFix-l.E-8)  171,lJi,10l 
171  P=0. 

!F(G2-2.I  a64.16S.J.6ij _ _ _  _  . 

164  0RD=.<39999999£  3^0 

GO  TO  200  ....  _ _  .  . 

169  ORD=l, 

GO  TO  200  _ 

166  ORO=0. 

GO  TO  20Q  _ _ 

101  LLX-FlAM 

Fl.LX  =  i.LX  - -  .._ 

A81=G?-*'2.«FlLX 

G2»Aai-.2.  .  _ _  ..  .  .  ..  . 

lx=flam 

tXsLX+l  _ _ 

441  LX=LX-1 

AA1=0.  . . . . 

AA1=LX 

G2=G2-2.  -  -  .. 

INDEX. I 

IFlLX)  468.454.46<. _ _ _ 

499  LLX  =  LLX-*-l 

LX  =  LtX  _ _  _ 

AAir-.o, 

AA1=LLX  .  _ 

G2=A81 >2. 

aB1=G2  _ _ _ 

INDEX. 2 

4  94  P=‘0.  -  _ 

PP  =  C. 

result »Q.  .  _ 

1F(G2-1000.J  168.170.170 

168  -  1 F  t  X-.24)00>i-  ]M1*  149.U.69 _ _ 

169  P*l. 

ORD»0.  _ _ 

GO  TO  200 
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\70  yi-^L0GF(X/G2  i/3. 

Y  1  sEXPF  f  Y  1  ) 

Y2=l.-2./(9.*G2 ! 

¥3=^QRrF ? 2./ {9.*G2) )  _ 

XX^  f  v-j  -  v2  i  /  V3 
call  H0RM9tX>  -’ROtORDi 
0  P-PStO 

D  ORD=ORD 

GO  TO  200 

16?  1F(G2-4.)  136.135.L36 _  __  _ 

135  Gil =G2/2.+5.E-ti 
K  —  Xf^TF.Glif 

D  THETAsO. 

THErA=G2/2.-FLOA7F(K) 

!F( THFTA-i.E*?)  145.145. IA6 

145  THETA  =  0. _ _  -  _ 

146  CONTINUE 

0  A»THETA»LOGF(X3-X/2.-(  i  . +  THETA  )  *L0GF  !  2  .  i -2L0&0M  «  !.■.  THETA} 

D  A3  =  A 

IF(A.-80.)  103. 103.102 
D102  A2=E3PF{A5 

0  T3=A2  _ _ _  ... 

0  Oft02»A2 

D  72*0. 

IFITHETA!  130.130.131 
0130  A3*A3-l0GF(X) 

GO  TO  132 

D133  -  A3=A3  +  l0GF12.  )+LOfif.lTH£JA].~J.QGF,LJ(J  .  ..  . 

132  Ir(A3.-80.)  109.109.108 

108  IF(A3-80.>  162.162*163 

163  QROl a, 99999999E 30 
GO  TO  104 
0162  A2*£XPF(A31 

.0  0RD1=A2  _ _ _  _ 

GO  TO  104 
0109  0ft0i=0. 

GO  TO  104 

0103  T3  =  0.  - - 

0  OR02=0, 

-0  ORD1=0.  _  _  - 

0  T2=0. 

104  1*1  _ 

105  1*1+1 

0  XI=I  . 

0  Aa(Xl+7HETA»  *l0GF ( X/2. J-lOGFI X ) -X/2 .-^L0GGM( X l+THETA) 

_ lF(A+80.)  1 0  7 . 1I1L.J116- _ _ _  ..  _ 

0.06  A2»EXPF{AJ 

0  OR03*A2  . 

0  T2*T2+A2 

1.7  IFn-K.).  110.111.111 _  _ 

1:0  GO  TO  105 

—  111  IF  lTHeiXl-4,38. 136.139 . . . — _ _  _ 

139  IF(X-5.I  146,148.149 

148  1*1 _ _  _  _  _  _  .  _ . .  . 

D  Tll*i. 
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N  =  0 

0  A  =  lOGF  (  X/?.  1  -t-LOGF  {(i.-*-TH£TA)/{2.-*-TH£TA)i 

!P<A*80.3  113.il3.112 

0U2  T  1  1=^11  i-ExPF(Al  _  _ 

in  J  =  - 1 

m  I  =  i  +  i 
0  X  I  ■- 1 

j®- 1 *j 

0  A  3  ®  n  .  ■►T HE T  A  I  /  i  X  i  +  The  T  A  1 .  ! 

lFfA3-l.E-8i  143,1^3.147  „  _ _ _  - - 

D  147  A*X  I  *tOGF  (X/?.  j  -ZLOGGMf  X  I  +  1  .  I  ♦  L OG^'  «  A 3  ! 

IFiA-f6j»i  143*143  »JL  44 __  _ _  .... 

0143  T12=0, 

GO  TO  I  19  .  .  _  .  .  _  _ _  -  -  . 

D144  Tn  =  ExPF(A! 

c  =  floatf  {  j)  _ _ _ _ _ _ _  .  .  . 

T  i2  =  <l  !GnF  (  T  1  3,0 
0  Tll  =  Tli*-T12 

N  =  N  4  I 

115  IF !N-3 3)  116,117,117  . 

116  GO  TO  il4 

117  PRIM  ns, <15, <32  _  --  _ _ - 

118  FORMAT (13M0  IN  ELEMENT  14»!4,61f<  FLLL  CONVERGENCE  WAS  NOT  ATTAINED 

1.  may  h£  CsOMEwhAT  UNPRECISEJ  .  ..  _ _ _ . 

119  I  F*:  T  1  1  )  1  3  3.  1  3. n  i  34 

133  GO  TO  121  . . 

0134  A  =  <  1  .  xThE  I  A  !  i  x/2  .  >  +LOGF  (  T  1 1 )  -ZtOGGMi  2.  +  THETA) 

I  F  i  A  » -i  1 ,  )  121.12  1.120 _ _ _ _ _  _ _ _ _ _ _ 

D120  Tl=fxPF(Ai 

GO  *0  122  -  -  _ _  _  . 

0121  Tl-0. 

GO  TO  122  - 

01X8  A=-X/«’. 

IF{A  +  80.)  140.140.141 _  -  ..  .,  .....  _ _ _ 

0140  A2=0, 

GO  TO  142  .  _  .  .  -  . . 

0141  A^-EXPF-iA> 

D142  T]=l.-A2  _  . 

GO  XQ  122 

149  N  =  25  _  .  .  _ 

A2  =  0, 

1=0  , 

153  l=l4l 
D  X  I  =  1 

D  A=-(13. ‘XI/XI  +  IT  he  TA*1.)  •»L0GF  (  1  3.  *X/X  i  )-2lOGGM  I  1  ,  ♦THE  T  A  )  -lO&F  1  X  1  ) 

..IF(A*eO.)  150.150.151 _  _  _ _ _  _ 

0150  Tll=0. 

GO  TO  152  ..... 

0151  TmEXOF(A) 

0152  A2  =  A2*T1  1  ...  . .  . 

1  F  (  I  -N  )  1  5  3  ,  1  5‘-  •>'* 

0154  8=1.0  i282C-j  :  Mri;.  .  A/1S6.-X/312. .  . .  . .  . . 

I  F  (  8  )  1  5  8  ,  :  5  5  ,  0 

8  *A6SF ( B  i 

A  »-X  /  ?  ,  ♦  (  the.  T  A  *  1  -  !  *LOGr  i  X  /  2  .  >  +  400’'  i  H  .1'-  (  ‘  <’  ■  1  ;,0GGM  ;  T  h£  TA>1 ,  ) 

■  C5 


0158 

D 


0161  C=^*EXPF?A) 

GO  ro  16? 

D16G  AS-X/2.+  !  THETA-*-!.  )  »lOGF  i  X/2. 1  ♦•LOGF  S  8  J -LOGF  {  52  .  ? -2L0G0H I  T  Ht  T  A-i- 1  ,  3 
|F(A+80.>  155.155.156 
D155  C*0.  .  -- 

GO  TO  15? 

0156  C®FXPF{ A3 
D157  O^A^-t-C 

D  Tl*l.-0  _ _ _ _  -  _  . - 

1??  IF(&2-2.)  123.124,124 

0123  RE5ULTa2.*T3  +  Ti..  _ _  _ 

0  OSO^OROl 

GO  TO  196  _  .  , 

124  lF<G2-4.]  125.126,126 

D125  result  =  TJ _ _ _  ..  ...  . . . 

0  0RD«0R02 

GO  TO  196  _  .  .  . 

D126  R£SULT»Tl-2.*r2 

0  0RD=0R03  _  _ 

196  IF<R£SULT)  194,194,195 

D  194  P*0.  _ _ _ _  .  — 

GO  TO  200 

D  195  P*ResULT  _ _  _  _ _  ..  .  ,  . 

GO  TO  200 

0  136  X=X/2.  _  .  .  -  .  , 

>  G2«G2/2. 

0  0RDL*-X-t-tG2rLL.JJ!tLQGFiX)rZiJilS^  - - - - - - 

If  iOR0L-*-60.  >  172.172,173 

D  172  ORD=^0.  _ _ -  -  _ 

IF(X-G2^1.»  174,175.175 

0  174  P  =  0.  _  _.  .  . 

GO  TO  200 

0-175  P»l.  - - - - - -  - 

GO  TO  200 

0  173  0«0A  =  exPF  tORDL) -  -  . 

0  OR01=0R0A/2, 

0  ORO=OROl  -  . 

IF30R01-.005>  178.178.179 

178  IF(x-C2*l.l  180*08-0.-179  - - -  —  - - 

0  180  X*X*2. 

D  G2=G2»2.  - - - - - 

GO  TO  135 

179  I  1=50  -  -  - 

0  X1«I  I 

0—  -  SS»X-H  XI -G2  ) /Xi— — -  - _ 

176  n  =  n-i 

D  X I  ■  I  1  _ _  -  . 

D  SS»X*(Xl-Gi  )/( 1,+XI/SS3 

IF(ll-l)  177,r7X,ll6 _ 

0  177  SS»X/SS 

0  PROB»OROA*$S _ — -  -  -  _  ____  _ 

n  PROS* 1. -PROS 

D  -  .  P*PR08  _  _  _ 

0  X«X*2. 
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44? 

44? 


044  ? 
D450 

hO  I 


G2«G2*2. 

CONTINUE  ■ 

IFiFLAMJ  199.442*442 

IF{FLAH-1  .£-7)  443.443.444  .  - - - - - 

P& ( KA } »P 

ORG!<A)»ORO  -  " 

GO  TO  201 

rFLAM=l000.  - 

IF < FlAM-CFLAMI  A4?*448»448 

.P.ROX,«;-nW..  USED  EOR  POl SSON-p«roF  NONC 

^  bam  AAi%LAM3*».33  333  3  33-l  .-^2.2  «9.*R.4M) 

Se-dA/SORTFI2./J9.*FLAM! I  - 

call  NOftH9( SB.CC.PP1 i  _ 

PP  =  PP1  - -  - . . . .  —  - 

GO  TO  401  ,  ,  c.  4.. 

c 1 = AA i *L OGF i Flam ) -ZLQOGM ( AA1*1 . ) -r LAR 

lF(Cl+45.)  450.450.451 

PP=0.  -  -  . -  -  -  ■  -  ■ 

GO  TO  401 

PP  =  £XPF«C1).  _ _ _ _  -  ■ 

CONT iNJ= 

5UBH£S*P*PP  - . 

5Ua0ftD=PP*0RD 

FlOROsFlORD+SuaORO 

F  IRESsR  1  ReS  +  SU8P£S  __ 

I F ( SUSRc L-1 . E~i2 )  4^6»456»ASi . - . .  - 

T  GO  TO (  44  1  *45 5  I . ! NDEX 
b  GO  TO ( 455 .452 ) » I NDEX 
2  PG( XA ) =F i RES 

IF{FIORD-.99999999E30)  18.19.19 
9  OBG< <A»=.99999999E30 

GO  TO  201  -  —  - 

a  ORG ( <A 5 = F lORO 

GO  TO  20  i  - 

PRINT  198.K.15»iCi2  ,  ^ 

FORMAT! 2 OHO  ARGUMENT  NEGATIVE  14.141 

P6iiC.A)=-0.  _ _ 

ORG  {  KA  1  =-0. -  - - - 

1  continue 

RETURN  -  - 

END 


Q  O  O 


^  ' 

1 

>  .42’*  '  ' 

2  2,  S*  “ 

« 

,  1 

• 

D 

a  A  -  1  . 

0 

'A  , 

3  P  =  P  G  f  ' 

G  2  ■-■  A  •  j  i  ' 
p  i_  A '.» =  a  ■ 

D 

Ao2®G2 

D 

iT  ;  ^  ~  P 

(  F  r  P  o  ' 

225 

JffpD- 

226 

A  X  f  <  A  1 

G  O  ' 

?o? 

I  F(.-JP_ 

221 

A  X  i  <  A  ) 

GO  TO 

224 

:  F  ( G  ? ! 

D  203 

X  ®G2»2 
I  F  (  X  } 

0  207 

20  5 

'  r 

20  9 

i  =  [  1  -- 

0527 

'  F  9  : ' 

N  P 
.'■'At' 
!  e.  K 


1  1  )  t  AGi  1!  .BGC  n  t&xn  ) 

:  A . N»«  »NCS  tNSC ♦ NCC  t  NftD  »NCD 

,SC  A 


<  1  2=^  1  tNR  A 


2  J<>.  22=5 . 225 
l»t— 8i  O  t  7  C  *  2'}  i 

m 

l.i  224,221.290 
=  .O9<5999O9t30 
30  0 

?99 ,299. 203 
V  .‘‘GAy— 2“‘^.0l 
20  7 .207,208  " 


D 

D 

0 

D 


-  ;  »  f  C  .  ^ 

:09,.'O. 

',2=  so? 

-xrsc 

^^X  =  ‘'LAy 
X  =';_  i_X 

-0?  *2 .»8lLX 

A  B  I  +  2  * 

i.  ■  ;  s* 


441 


D 

D 


<^L.L 
A9; 
0  2® 
..  r,  = 
LX® 
L  X® 
A  A  ' 
A  A  ; 


.  X  ♦  i 
.  »  -  1 

'■  • 

*  X 

0  2-2. 


;_■<  )  455,454,454 

4  0  5  *  L  *  ♦  1 


■*  .  ~  'j  ^ 

‘  i  ®  L  L.  X 

®  A  1  2  , 

'.  -  0  2 
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'W| 


If; 

62!  199,199,100 

1  00 

1  f  i 

X )  199,90,90 

•*0 

1  f  i 

X-I.L-sSi  I71»i7i»i 

017  1 

PA  ; 

« 

I  F  t 

G 2-2,1  164,165.166 

164 

ORD 

= . 09999999999E30 

GO 

TO  200 

0165 

ORD 

~  A  « 

00 

^  ‘>0  0 

166 

ns? ' 

-  -  - 

« 

'  3  ^ 

*  3  0 

101  >  i  G?- ;  !  lfe«»l!70.17Q 

168  :Fi)f-700C.:  lt>7.l69»J69 

0169  »A=1,  - - - -  - 

D  Okj-O. 

GO  ro  200  - 

170  Yl=LOGf' i  X/u2  J  /  J  . 

Vl=£XPFiYl)  -  '■ 

Y2=l .-2. / { 9.*G2 ) 

Y3  =  SQSfTF  S  2.  /  i  9.  »G2n  - - -  - -  - 

X  X  =  f  V  ?  -  y  2  1  /  V  '4 

call  N09M9i  XX.PA.ORO) - - 

60  TO  200 

167  1F(G2-A,!  135.135.136 - - - 

135  6ii^0?/2.+5.e-8 

X  s  X  !  N  T  f  (  G  U  ) - ■ 

0  THETAsO, 

ThET  AsG2  2. -FLOATE  I  K.>  .  .  -■  ■ 

1 F  !  THt'TA-i  .e-7)  145.145.146 

145  r-£rA  =  o.  - - - 

146  continue 

0  A»rHETA*L06FIXJ -X/2.-< IV+THETAl *LOGr{  2 , 5 -2L0GGM 1 1 . +THETA ) 

D  A3»A 

!F(A-t-80,)  103.103.102  - 

010?  A2=EXPF(A) 

0  T3=A2  - 

0  ORr>2  =  A2 

0  T  2  =  0 ,  - -  - - -  '  - . . 

IFc’iETA)  130.130.131 

OnO  A3  =  A3-lOGf  (X)  -  . 

GO  -^0  132 

0131  A3^A3*LOGF(2.)*LOGF<TMETA1 -LOGF(X)  "  " 

132  ;  A3-t-S0.!  1C9.I09.106 

108  I  A3-80.)  162.162.163 -  “ 

16  3  OP  -■:  =  ,999  999  99e30 

GO  ”0  104  - -  -  .  -  - 

0162  A?-xPF(A3) 

0  OPi  ■  -  A2  -  -  ■ - - 

GO  TO  104 

0109  OPOi^O.  - - —  - - -  - 

GO  TO  104 

0103  T3  =  0.  '  - -  '  - 

0  ORD2.0. 

0  0R01»0.  -  -  - .  -  -  -  -  ^ 

D  T2»0. 
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104  I = ' 
i  T  *  1 

V  ?  -  » 

4.^  A  •  -  * 

D  i*LOGP  {  X  /  2.  s  -LOGf^i  X  1  -  X  /  2  *  ~Z  LOGGM  {  x  i  +  THETA  ) 

If-fA  +  gn,!  107,107,106 
0106  A?^TXPC|A) 

D  r."  :'  =  i ;> 

D  '.‘■iTZ-.AZ  — -  -  - — - 

10?  \f-ii~K)  no , u  1 , 11 1 

UO  GO  TO  106  - 

ill  •i'-.'ThpTA)  1  3  8,  I  A(<,13<J 
13^  i4fi  .  l.,e,  149 

148  !-? 

D  T 1 1  =  1 .  - - .... -  - - 

S  -  V 

0  AstOGF fX/2.  (♦LOGFli 1.4TH5TA)/! 2.  +  THETA))" 

IF(A*80,i  113,113,112 

O'  7  TllsTl  1-EXPF{A!  . .  - 

K3  J=-I 

114  I  =  - - -  ■■  —  •  ■ 

0  X  I  =  I 

J*“  1  »  J  - . . 

D  A3= {  1 . ♦TrtET A  } /I  Xi *THeT A  +  l .  } 

IF(A3-I,£-8j  143,143,14? 

D14  7  A==XI»lOGE(X/2.>-ZLOGGmcx2  +  1.)4.lOGF{A3  5 

IFtA  +  SO.J  14  3.143,144  — — -  -  ---- 

0143  T12*0. 

GO  TO  119 
0144  T  1  3  =  EX0=^  (  A  } 

C'FLOAT-^fj)  - 

T  12  =  S1GNF<  T13.C  > 

0  T  n » T 1  1  ♦  T  1 2  -  - 

N  =N*  1 

116  •*  \-60)  116.117,117 

116  f •  1 1 4 

117  ^  ■il8,K.15,iCl2 

118  ■■  ^'7;,T(i3mO  in  Fl.EMFNT  |4,I4,51H  FULL  CONVERGENCE  iiiAS  NOT  ATTAIN! 

1.  ’7 A/  HE  SOMEWHAT  UNPRECI5E)  ' 

119  1  3  3,1  33,1  34 
133  GC  -^0  12  1 

0134  A  M  1  .  -.ThETA  >  LQGF  (  X/2.  )  -t-LOGPI  T  1  1  )  -  ZLOGGM!  2  .-^ThE  TA  ! 

;  ( A*80.  1  1  i ,  121 ,120 

0120  r.^EXPfiA) 

TO  122  -  -  - - 

0121  T : 0 . 

GO  *0  122  . 

0138  A=-x/2. 

IF(A,30.)  140,140,141  '  -■  - 

0140  A  2  =  0. 

^  GO  TO  142  '■  - - - - -  ■  -  -  - 

0141  A2=EXPF[A( 

0142  Tl  =  l.-A2  -  - -  ■  ^  - 

60  TO  122 

149  N*25 
D  A2»0, 

.  .  . . 


j  ^0 

1  ^  I  r  t  *  1  -  — 

D  »  I  ^  I 

D  A  =  -iM.»X)/X!*(THETA«-l,  }»L0Gri  13.*K/X!  S-ZLOGGMj  I  .  tTHE  T  A  J  -  tOG^  t  X  I  ) 

i  !i*HCU  1  le-O.l&O.  i51 

uO  TO  152 

ni5T  Tll^Exop(A>  - - - — . . ■ — 

D15?  i2=A?*Tn 

If  (  i-Hl  153.154,154  -  -  - 

a  154  f*sl.&1282U5  1+  TH£TA/156,-*/312. 

IF  10?  158,155.16C  -  - 

D158  B=AeSF(B) 

0  A^-x/?..  (  th£ta4  1  .  > » l o GrryrrvyytoGF r B-r-nrOGrr^r, i - z loggia t thct a ♦  i .  j 

A*80.  i  155.155, 161 

0161  C  =  -t'XPF(  A }  - 

GO  TO  15? 

0160  /?,*i  The  TA41  .  i  *l,0GFtX/?.l  *LOOE  t  B1  -LOOFl  52  »  5  -ZLOGaMl TMETA  +  I.  ) 

IF ! A  +  aO.  !  155.155,156 

D155  C=0.  - - - — - - — -  — 

GO  TO  157 

D156  C^Exopf  A  S  - 

0157  0- A^+C 

0  Ti  -  l.-O  -  -  - - 

122  1-  G2-?.  S  123, 124, 124 

D123  Sr  50LT=2.«r3  +  Tl  - 

0  .'--OsORDl 

TO  196  - -  - ■ 

124  .  (G2»4,)  125.126,126 

0125  T  • 5dLT=T  1  - 

0  '‘9D»0ft02 

C.0  TO  196  - -  -  ■■  -  -  -  - 

0126  «ESULT*n-2.*T2 

0  090=0RD3  - 

196  IFIRESUlT)  194,194.196 

D 194  PASO.  -  - 

GO  TO  200 

0195  PAsRES'JiT  -  —  •  - - - - - - 

GO  TO  200 

D  136  X  =  X/2.  -  . . 

D  G2=G2/2. 

0  0R0L=-X4  I  G2-1  ,  )  *l.OGf  f  X  I -ZLOGGMIG2  ) 

IF(ORDL+60.)  172.1  ??. 173 

0  172  ORO^^O,  - - - — - - 

I  F  f  X-G2t  1  .  i  1  74  ,  1  75  ,  i  7«^ 

0  174  PA  =  0.  -  -  • 

GO  TO  200 

0  1  75  PAs 1 .  . 

GO  TO  200 

0  173  0R0A  =  EXPF  IORDl  ■■  - -  - -  - - - 

0  OROl “OROA/2 . 

0  ORD  =  ORD1  -  -  -  - - - 

IF (ORDl-. 005 S  178,178,179 

178  IF t X«G24l « i  190,180.179  . -----  . -- . 

D  180  X»X*2. 
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OOiDOCsaOO  OOOOOOO  OOO  QOQO 


p 


p 

0 

176 


1  77 


44? 

44d 

449 


450 

451 


457 

456 

452 

19 

18 

201 

547 

548 
512 
529 


=  o »  ?  . 

Ti  .■)  7  115 

t  ;  -  t,  ’ 

X ;  M  I 

X  »  (  XI  -G2  )  /Xl 
I  i  *n-i 
X  i  *  n 

SSsX^i X1-G2 ) / n * *x ! /sss  ■ 

.'Ptll-U  1?'?.|7?,1?6 

,5S-*X/<."  - 

PROB20^0A*S* 

PR03*]  »-.»R0a  - - 

PA=pft08 

-  — - -  - 

C2®G2*2. 

COMT iNut  '  '  -  -  -  - 

If  <  i  1^9,442  *442 

}F  (  rt.AM-1  .f. -71  201»201  .444  - 

TFtAMs  iOOC', 

IF  (  f  LAV-CFl  AW  )  447,448*448  - - -  - - - 

PRI^T  4^9,4  ;  2  ♦x  15 

FORMArf65MO  NOR*^‘Al  APPROX  I  MAT  I  ON' WAS'  USED  FOR  POISSON  PART  OF  NONC 
iFNTRAl  F  219) 

RAalAAl/ FLAM)  **,  113133  33-1  .+2. /'(^.•FLAMr 
BSsSA/SORTF ( 2./ f  9.AFLAM j  ) 

call  N0SM9(  8B»CC  ,ppn  - -  - - 

APP-PPl 
GO  TO  401 

ClaAAl*cOGF ( Flam !-2lOOGM(AA 1+1, )~FLAM 

IF(Ci+45,>  450*450*45i 

APP:--). 

GO  '0  40  1  •  . .  ■" 

APP^EXPF / Cl  I 
CONTI NU? 

SUBRE5»PA»APP 
SU80RO=APP#ORD 
F  lOROs^'  :0«D  +  5U80RO 
■  rRF$»='’RES  +  5U8Rf5 
;F I SU8S2S-1 .E-12 1  456.456,457 
0  TO{ 44  1  ,455  > » INDE 
jO  T0( 455 ,452) » INOt 
=A=FlReS 

F(F I0R0-.99999999E30)  18. 19, 19 
)R0*.99999999E30 
:0  TO  201 
'''RO^FIORO 

;-(n-l)  547,547,548 

I NDEXs  1 

GO  TOf 532,533,514! , INDEX 

IFIORO!  522,522,529  .  '  . . 

continue 

XC*K- I PA-PP 1 /ORO 
DEl-0. 

A0OP«AaSF(PA-PPl . 

ABOP-ABOP/PP _ _  _  _ 
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yHI  ,m»»»n  Mr.  .urn 


<  A 


1  •  r.  ~  !  %  i  fc  *  ^  i  6  »  5>  2  0 

S  1  «  ■,  J  (  ^  I  -  X  ' 

^  N ' :  \  ■ 


*  ' t  5  5  8.5^3.559 

n  ^ 

X  =  X  ,  2  , 

'  ;  0  ’'70  5  6  U 

-  x: 

S 

1 

\  \  ~  5 

;  F  r  !  :  _  ) 

209 .209.522 

52? 

S  7  T  Q 

r\ 

x-'  X  ~  X 

i  *  1  X  -  1  ,  ^  - 

30)  550.550,551 

>  ^,'i  1 

1 

'  N  T  In  L'  - 

5  =,  5  ^-(PA-S^S  i';  .  5  36*  ^ 

053'3  '^fL^X  -  ■ 

GO  TO  338 

D53  7  DtL  =  X  - - 

GO  TO  3'<'? 

538  !FtSCT-12!  5<:40*540»546  -  - 

D540  ABG'J  =  .^•' O-  i  PA-PP  ! 

0  4d;'.»  =  ■  p  /  isc 

!  r  (  A-*'  -  I  .t -8  !  536*536,541 

0  54  1  0:. ;  ^  '  10.  ■  - - -  ■ 

N^-  -  -  -.I 

>’4P{D£;l)*5.5-7*X)  536,536,542 
0  54  2  X  x  +  Dtl 
0  »■  >  -  < 

;  ,  X  s  2 

'  T  0  4  2  7  •  - - — -•—  ~ 

533  .  (DA-PP|  542.536. d34 

539  !  NCT-12i  543.543,546 

0543  A■^  P  ^  A5SF  <  PA-PP  ) 

D  Ap/JP- ASOP/PP 

!r  f A80P~1 .c-8  )  536,536.544 

0544  nEL=DEL/iO.  '  - 

NCT=NCT+1 

SF(AesF(DEL)-5,E~7»X)  536.536,545 
0545  X=HX-0EI 
0  H  X  =  X 

IF{X)  563,563,564 

D56  3  x-0,  . . 

564  CONTINUE 
lNOEX-3 
GO  to  527 

53A  !F(PA-pP)  538,536,545 
636  AX!<A|--X 

GO  TO  300 
54  6  AX ! <A  I  =  X 

PRINT  524,X12,X-.  ‘ 

524  FORMAT(13mO  IN  :;l.E>'ENT  J-4,I4,61m  FULL  CONVERGENCE  WAG  NC  7  ATTAINED 
1.  x^AY  8E  SOVEwhAT  UNPRECISE) 

GO  TO  300 
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199  CONTl?yue: 

299  PRINT  29e,Kl2»PC15 

29S  FORMATI2QHO  ARGUMENT  NEGATIVE 

297  AXiKA) «-G. 

^00  continue 

RETURN  ---  - 

END 


Ti 


OOOOOOOOO  QO  C3  OC1'.  OC> 


SUB*^05JT  I  NE  NCBT*tXIC.«A!C.8K.CK»PK*Z<! 

COMMON  NRA.NCA.NR8*NC8*NRC.NCC.NRD*NC0.NRE.NCe 
DIMENSION  X>C(  1  }  .Att(  1)  .8K«  1  t  *CIC  {  n  *PX{  i  )  tZXi  11 

DO  89  <15»i.NCA  _ 

DO  89  <lZai,NftA 
KAi<HI5-lS*SRA*K12  _ _ 

flam=o. 

F lOROaO* 

FIRESaO* 

VPOaO.  . . . .  . 

XXC)  =  0  , 

AA0»0,  -  _  _  _ 

Bao=o. 

X  =  0 .  -  -  _ 

FLAM=C< ( <A) 

Fl,AMaFLAM/2.  _ _ _ _ _ _ 

!F(FLAMI  80.A*4 

A  XXO  =  XK(ICA}  _ 

AA0  =  AX(  KA  J 

B8D  =  8K(X,A)  _ ... 

AiaAAD 

81=aBD  _  _ _ _ _ .....  ...  . . . 

IF{AAD)  a0f80t9 

9  IF{ 8BD)  80»80.11 _  .  ..  .  .  . 

1’  IFfXXD)  80»13»12 
n  c>K{<.A)=0. 

GO  TO  491 

12  X»XXD  _ _ _ _ _ 

IF!X-1.)  14»14.80 

14  CONTINUE  ......  .  .  - 

IF<  A8SF< Al-l.l-l.E-7)  121.121* 122 

121  IF(  A8SF«81-1.)-1.£.-7)  123.123*122 

123  iF(FLAM-l .£-7}  124.124,125 

124  PKIXA)=X  _ _ _ _ _ _ _  .. 

2Xj  XA  |»1, 

GO  TO  89  - -  --  -  -  - 

125  C1=EXPF(FlAM*X-FLAM» 

RESULT  =  X»C1  - - 

PK  (  <A ! =R£  SUL  T 

ORO  =  C  I*  1  i  .-•■FLAM*X1 _  _ 

2X1 XA I =OR0 
GO  TO  89  _ 

122  lFlAMsFLAM 

xflam=lflam  _ 

A1  =  A1  .XFlAM-U 

LX^lFlAM-I  _  _ _ _ _ _ 

L  L  X  -  L  X  -*  1 

I  NOE  =  1  . .  -  -  _ 

GO  TO  488 

D  486  A1=AA0'*-XFLAM  _  ..  .. 

I NDE=? 

487.i.X-LLX-i  - - - - 

LLX*LX 

IFlLX)  49  7,4  89.489  _  . 

0  489  AA1*LX 
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0  A  i  =  A  1  -  I  « 

GO  TO  485 

488 

0  A  A  1  s  L.  X 

D  A  1  A  1  i  . 

0  48S  2i0» 

Q  o  p  =  , 

D  resulted. 

SENSE  light  0 

D40  2  CLat  T  A=:Z  luGGMi  Al-*-Bil-ZL.Q&GMiAi  J  “iLOOGf*'  (  3i 
IE(CLBETA+gO. 3  4C6.406.407 

0  406  C8£TA=0.  -  _  . 

GO  TO  40S 

407  3FiAl-i.)  4ll,4i2.4lL  . 

411  IFCBl-l.)  406.412,408 

D  412  CBET  A^EXP^^  S  ClBEI  A1 _ _ 

408  lFiX\  30.823.5 

5  I  F ! y-1 .  )  6 . 326.80 

6  IF { X-1 .E-  14  >  32  3.32  3.7 

0  7  XHH=0, 

0  XHH=i,-X 

IF(XHH-1  .£-141_326i32fk.8 _ _  _ _ 

8  IFIAaSFl Al-i.(-i.£-8(  433.433.434 

433  IF( ABSF! 8i-l.J-l.E-81  435.433.436 
D  438  p=X 

GO  '0  8? 

0  436  C1=81*L0GF( 1  .-X ) 

lF(Cl+45.  )  422.422t4.3J _ _ 

0  437  RESULT  =  l.-EXPF<Cl  J 
GO  TO  429 

434  JF( ABSF! 31-1  ,  !-l ,E-8)  438.438.439 
D  438  Cl=Ai*LOGF{X) 

iFlCi^.S.)  423.423.440 

D  440  R£SULT=£XPF < Cl  I  _ 

GO  TO  429 

439  IF<A1-1000.)  416.416.417 

417  XX  =  2. *A 1* n . -X  ) /X 

OF  =  2  .  *ii  1 

PRINT  1995.<12.<15 

1998  FORMAT (29H0  CHlX  APPROXIMATION  USEH  IN  219) 

call  chi  9 ( XX .of ,PR0.0R.X12.X15 ) 

0  RESULT= I . -PRO 

I F ( RESUL T -.99999999 )  429.420.420 
0420  RESULT=1. 

GO  TO  429 

416  IFiei-lOOC.I  418. 419. 419.  -  - 

419  XX  =  2.*31*X/ <  l.“X  ) 

DF=2.«A1 

PRINT  1994,<12.<18 

1994  FORMAT (29MC  CmIX  APPROXIMATION  USLD  IN  2.9S 
call  CHI9 (XX  .OF,PRO.OR»<12.X15 ) 

O.  R£SULT  =  PRO  -  - - - 

IF( RESUL T-. 99999999)  429.420.420 

418  CONT INUE 

IF(A1-1.)  487,487,488 
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a  a  a  a  ct  a  oooooo  oo  oqoq  a  a  a  a  a  •  ,  a  a  a  a  a  no  qqq 


457  |F(81-1.J  459. 458*458 

458  CONT INue  -  - 

IFJX-.50}  472,473.473 

473  Y-Al  _ _ _ _  .  . 

A  1=B1 

B1=V  -  - 

Xa  I  .-X 

sense:  l  iGht  3  . -  - 

4  72  CONTJNsiE 

IFiAl-i,)  452.453..4A3 _ 

4  S  2  A  1  =  A  1  ♦  i  . 

»  i  -  I  - 1  .  _ _  _ 

SENSE  light  1 

453  continue  _ _  -  _ 

70  11=80 

FN  =  Al-.al-i,  _ _ _ _ _  _ 

XK  =  Ai-l  . 

FM0D  =  FN*X  _  -  .  _  .  _  - 

FO=LQGF{X  )/5. 

F0  =  EXPF  {  FQJ  _  .  _  _  , 

FM0=FM00*F0 

!FtXX-FMQ  +  2.  )  42St447,4ilL2 _  _ _  _ _  _ _ 

425  XX=FN-XX 

X=l.-X  _ _  _  ...  ...... 

442  SENSE  light  2 

447  CONT  I  Nue  _ _ 

AA  =  X/ (  1 .“X  » 

XXi  =  !  I  _  _ 

S5=  (  (  FN-XXI  -XX  >  *  1  XX+XXI  >)  /  (  IXX-.2.4XX  1-i,  I  •  (  XX  +  2.*XXI  )  ) 

SS=SS»AA 

108  ii  =  n-i 

A I  =  I!  .  . 

Ol  =  !AI*iFN+An)/(<XX-.2,*AI+l,l*{XX  +  2.*AIn 
DD=D1 *AA  _ 

Cl  =  n  FN-AI-XX  )*  (  XX+AI  n  /  U  XX-*-2.«AI  -  l  .  >  *  !  XX-*-2.  *A2  )  ) 

CC=C 1 »AA  ... 

ss  =  :c/'(  i.+OD/c  i.-ss)  t 

IFC  I  I-l )  109, 109.106 

109  SS= 1 . / ( 1 .-SS ) 

C  l  =  ZLOGGM(FN  +  l  .  ) FN-XX)  +  (  XX+l.J«LOGFi.X)  +  lFN- 
1 XX-1 . 1 *l  OGF (  1 .-X ) 

SSUM=lOGF  (  SS  )  -  ...... 

SSUMl =SSUM+C 1 

1F{ SSUMl+80. )  423.423.110-  -  ... 

423  RESULT=0. 

GO  TO  421 _ _ _ _ _ _ _ _ _ _ _ _ _  .  ... 

no  SUM  =  EXPF  (  SSUMl  » 

result  =  sum  _  _ _ 

GO  TO  421 

323  RESULT  =  0.  _ _ _ _ 

P=RESULT 

GO  TO  86 _ _ _ 

326  RESULT=1. 

P=RESULT  ...  _  _  .  .  _ 

OR0«0. 


GO  TO  86 

l‘-'IS£N=.e  light  2)  426,4  28 
0  426  X-U-X 
D  XX5:FN-XX 

D  T  1*ZL0G&M(  FN^l  .  )  -ZLOGGMi  XX  +  i.  )  -ZlOGOM!  FN-XX  +  i  .  S  ♦XXtLOGF  i  X  ;  ■»  i  F N-XX  J 

1  •LQGF (  i . -X ) 
lFfTl+46.)  460*460*461 
0  460  RESULT^  l*~ReSul.T 
GO  TO  428 

D  46T  result-1  .-RLSUUT-exPf(T-li___^  .  _ 

426  iFiGENGF  ^IGKTli  454,429 
0  454  _  _ 

0  Cl  =  2LOGGM(  Al  -*61  !-2L,0GGM{  A1  )-2LOGGM(8i  S  ♦  (  A]-!.  !*LOGF  C  X  (  +1  Bi-l*  i*LOG 

IF  C  1  »~X}  -LQGF  f  A.l+ai-  1.  J  .  _ 

0  A1=AI-1. 

IF{Ci  +  45.)  429.429*456 _  _ 

D  456  RESULTsRESULT+exPFiCi ) 

GO  TO  429  _ 

459  IFSAl-ai)  466,466,467 

D  466  Y=A1 

0  Al=8i 

0  a  1  =  V  . .  _  .  .  _  . 

D  X=l.-X 

SENSE  LIGHT  J  _ 

467  lF(X-.85>  468*469,469 

0  4  69  Y=A 1  .  _  .  . 

D  A1=81 

U  8  1  =  Y  .  _ 

0  X=l.-X 

IFJ  SENSE  LIGHT  1  )  468*470 
470  sense  light  1 

468  continue  ... 

D  2  =  1  . 

D  C2  =  A1  +  1.  _  ..... 

0230  SU^G=0. 

D  SU'^G  =  CL8ETA*A1  *L0GF  (X  )-L0&F  lAl  ) 

1FiSUMC,  +  80.)  295*295.240 
0  24C  RESULT=RESULT.yEXPF<SUMGt 
D  245  C16=l,-Bi 

D  SUVH=0.i,  ._.  ...  _ 

D  SUMrt  =  CLSE  TA  +  lOGF ( C16) ♦C2»L0GF( X )-L0GF ( C2 ) 

250  IF{SUMH+45.I  295*295*260 
n  260  RESULT=RE  SULT*-ExPF(  SUMH) 

D  C17=Al+2 

D  C18  =  2-*l.-31 

0  .  C19  =  A1  .Z-H.  -  .  _ 

D  C20  =  Z*-1. 

D  SUMH  =  SUMH  +  LO&FtX)*-LOGFLCi.TLL+LDGF  (  C  1 8  ) -LOGF  (  C 1  9  1 -LQGF  (  C20  i 

0  Z=Z-1, 

60  TO  250  ..  .. _ 

295  continue 

IFfSENSE  light  ..XA-4..<l»4^9 _  _  _  .. 

D  471  y«A1 

D  Al=81  _ 

0  Bl'Y 
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a  Ci  Ci  a  a  a  a 


X* 1 .-X 

RESULT’l. -RESULT  . 

4?9  continue 

!F(  SENSE  LIGHT  3)  474.475  .  _ _ _ _ _ 

474  y=Al 

AlsBl  _ 

B1=Y 

Xa  1.  .-X  -  _ _ 

RESULT=1.-RESULT 

475  continue  _  _ _ _ _  _  _ _ _ _ 

0  RCO«=l .-RESULT 

IF IRCOH-1.E-12I  422.422.427 
D  422  RESULT al. 

0  47  7  P=_RESULT 
87  CONTINUE 

D  ORD 1  a  CL8£  TA41A1  -1..  j.»LOGf IjLl-EI  Sl-.l .  ) •LOGE  <  1 . -X  i _ _  _ 

IF(0RD1>45.)  403.403.404 
0  4^3  ORQaO, 

GO  TO  86 

404  IFJOROi-80.)  4l5.405.»4iLS, _ 

405  ORD=,<59'999999£30 

415  ORD  =  ExRF  (  ORai)  _ _ _ _ _  _ _ _  _ 

86  IF(FLAM)  80.542.542 

542  IF  '  flam- 1  ,£-7J,  543,543.544 _ 

543  PXIXAJap 
ZlCt  <A  ) -.-ORD 
GO  TO  «9 

544  CFLAMsIO'JO. _ _ _ _ _ 

IF(FLAV^CFlAM)  547.548,548 

548  PRINT  549,<i2.Ki5 

549  format {68H0  NORMAL  APPROX  I  MAT  I  ON  WAS  USED  FOR  POISSON  PART  OF  NONC 

IENTRAL  beta  219 J  .  _  .  . 

AA= (XX/FLAM I *#.33333333-1 .+2./ (9.*FlA«) 

8B  =  AA/'SQRTFir,./(9.*FLAM)  1.  _ _  _  _ 

call  N0RM9{BB.Cr.pPl) 

OpaPPl 
00  TO  401 

0  547  ClaAAl*LOGF(FLAM<-ZLOGGM{AAi+l._L-JTLAR.  _ 

IF(Cl+45.)  550.550.551 

0  5  50  PPaO.  _  _ _ _ _ _ _ 

GO  TO  401 

0  551  PPaEXPF(Cl)  _  _  . . 

401  CONTINUE 

D  SU3R£S=P#PP 

0  SuaORD=PP#ORD 

D  Fi0RD=FI0RD4-SU30RD  _  _ _ _ 

0  FIRES=F2RES+SU3RES 

GO  TO  I  494 ,496 ) , I NDE 

494  I F  (  SUBRES-1 . E-1 2 )  486,486.488 

495  IF!  SURRLS-1,£-12)  497 ,497  .487.  „  1' _ 

407  PX( XA ) =F I  RE S 

-.IF(X-1.£-121  491,491.49.2 _ _ 

491  IF(AAD-1.)  493.484.495 

493  ZXI  KLA) -.99999999£3Q _ _ 

GO  TO  89 


{  x;*  >  XPF  ( -FlAM) 

GO  to 
/KtnajsO* 

GO  TO  d9  -  -  _ 

49?  ?<(  KA 1 lORO 
GO  to  R9 

go  or;  N''  e.  1  tK12  »<15 

81  FORMAT!?6hu  argument  NOT  ADMISSIBLE  2lS5 
PR( <A i --C. 

ZiC(<A!i-0.  _ _ _ _ _  _  _ _ 

CONTI huE 
RETURN 
END 
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oooc  ocj 


SUBSOUT  IN?  NCBTPIPL»AL»8L*CL.Xt.  5 
Oi  MENS  I  ON  PLS  I  UAH  IS  ♦Sti  15  *CLi  1}  »XLn  ) 

CO'^MON  NRA,HCA*NRB*NCa»N«C  .NCC  *NRO»NCD*NRE  NC£ 

DO  5  7  K15«1.NCA  ,  _ _ 

DC  57  <12»S .NRA 

--- 

0  PPD=0. 

0  AAOsO*  _ - 

0  BSO^O. 

D  YXDsO.  _ _  _ .  .  _ 

D  t-0* 

0  XCiO.  _ _ _ 

0  XDO---', 

0  FtAMrO. 

PDD^pl i X  A  i 

AAD-Al!<A5  _  _  _ _ _ 

S30=8l  *  <A i 

?LAM  =  CL  (  <Ai  _  _  . 

0  FL.AM=  PlAM /.?  . 

IFULAM!  52. a. a 
A  IFCAAOf  52.52.il 

11  IFJHRO!  52,52.12  _ _  _ 

12  iFfPPO)  52,15.16 

1  5  X  L  U.  A  )  =  0  .  _ _ _  .  . 

GC  ■'0  5  7 

16  IF(?PD-1.  )  18.18.52 

18  PPH^O. 

PPHU.'-PPO  _ _ _ _ 

IF  i POh-1 . E-8  )  14,14,19 

19  IF  ;PPD*i .E-30J  15,15,17  _  . 

17  AHmAD 

SI  =350  .  . 

3p=»PD 

7<.  IF!PP)  599.501,5020  . .  __ 

5:’  AX=0. 

GO  TO  600 

5020  lF{PP-i.)  502.14.599 
502  IF ( ABSFf A  1- 1 .  l.E-7 I  121.121.122 

1?1  1 F ( A0SF { 8  !-i  .  i- 1  .E-7 >  123,123.122 

123  lF^FtA‘^-i.F -7)  124,124.125  _  _ _ 

124  XtUAi-PP 

GO  TO  57  .  _ 

125  Ci=PP«F-XPFf  Flam  ) 

X=1.+L0GF (PP)/FlAM 
!F(X)  129.129,128 

D  129  X  =  A6SF ( X  )  *1  lam 

0  128  X  I =X+ { wOGF i f 1  )-FlAM*X-LO&F ( X )  ) / (FlAM» 1 ,/x I 
IFlxn  130,130,131 
0  130  Xl=i.E-6 
GO  TO  112 

131  IF!x1-U!  1  32.1  33.1  33 

0  133  Xl  =  l.-:.t-6  -  .... 

132  CONTiNLiE 

IF ( ABSF i X  1-X  ! -1 ,E-6 )  126,126.127 
D  127  X=X1 


81 


O  Q  O  Q  n  .  .  a  O  Q  O  Q  O  O  Q 


GO  TO 

128 

1  ?6 

Xt 1 KA } 

-X  1 

GO  TO 

67 

]  .5? 

IFiPP- 

.96  !  1 

64,  1 

S5.135  ..  _ _ _ 

0 

i  ^6 

X  .  (  A  1  - 

I  .  .-J.  *flam 

l/<Ai*8I-2,*3.«FLAM) 

GO  TO 

136 

0 

1  T4 

X  a  (  A  1  - 

1.+FLAM5  2  <  Al>Bi-2* ♦FLAM) 

1  '^6 

C'..‘4TI?4UC 

:  f ( x-i 

.E-161 

514 

.614.515 

0 

6  i  4 

16  .... 

GO  TO 

654 

5 

^  i.. 

IF i X-i 

,i  554 

.555 

,555  _ 

0 

065 

X®! .-1 

.E“12 

564 

N=»?6 

_ _ _ _ _ _ _ 

J  J  !  >“V 

n*o  _ _ _ 

su. 

DS2?  R£SULT=0.  _  .  _ 

4lsAA0 

MXsX  _  _ _ 

noaoao. 

FlRESaO.  ... _ _ _ - _ _ _ - _ _ _ _ 

lFlamsFi  Am 

XFLAMaLFLAIM  _ _ _ 

Al»Al-t-XFLAM-l. 

LX  =  LFi.AM-1  . . . 

ILXaLX+l 

INO£»l  _ _ _ _  . 

GO  TO  408 

486  A1*AA0^XFLAM  ....  _ 

iNoe»2 

487  LX»lLX-1  .  _  _ 

LLX»LX 

IF(lX)  497t489»4^Ba _  _ 

489  AA1»LX 

A1=A1-1.  . .  . . 

GO  TO  486 

483  LX  =  l.X+l  _  _ 

AAlsLX 

Al=Ai>J.  - _ _ _ _  _ _  . 

486  f*PO  =  0, 

RESULTaO.  . .  . . -  . 

PAaO. 

SENSE  light  0  -  .  _  . 

D  CuBt  TAaZLOGGM(Al+81 )-ZL0G&M( Al ) -ZLOGGM (81 

IF  (CLflET  A  +  eo.  1  406*406. 402 - - - - 

406  C8£TA=0. 

GO  TO  40  8  -  . . . 

407  rF( A  1-  1  .  »  41  1  ,4  12,41  1 

411  1F(81-:.J  403.412.402  . . 

41?  CBET  A^rFXPn  CL8ETAJ 

„  40?  lFiAl-1.)  SIO.SOS.SIC _ — — 

506  IF(Bi-l.J  606.422,506 
0  5'^6  CONST  =81  »L0GF<1.-X» 

IF  1C0NST.-45.  J  422,422.607 
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o  o  a  o 


D  507  Rt  SULT  *1  ,«E  JSPK  I  const  ) 

GD  TO  4  75  -  .  -  . 

513  lFi81-l,}  402.511*408 

0  4U  CONST.Ai  *uO<iFiX  1  _ _ _ 

1FiCONST+45. 1  427,427»5:.2 

D  51?  RESULTsfXPF  KONST  )  -  _ _ _ 

GO  TO  475 

40 «  IffXi  I999.323.5  -  --  _ 

5  |F!X-1.1  fe..!  26 .1999 

6  IF!X-1  ,£-14  ?  32.Jbi3L2i*JL _ _ -  _ _ _ 

7  XMh^O. 

XMH=i,-X  _  _  _  _ 

IF iXHw-i .t-14)  326*926*8 

S  in  4BSP.' 4  1-1 .  }-I.Ej-8L  A33. 433.434  _ 

433  1F(  ABSFiai-l.  )-l.£-“8  j  435.435.436 

_435  PA-X  _  _ _  _ 

GO  TO  2000  _ _  _  _ _ _ 

0  436  Ci-B 1*L0&F( I .-X ) 

IFSCl+45.i  4  22.42^..43-7__. .  .  ..  _ 

0  43?  SESULTal . -EXPF ICI J 

GO  TO  429  _ _ _ _ _  _ _ _ 

434  IF(A6SF<S1-1.1-1.£-8>  438.438.439 

0  4  38  C1=A1*lO&F(XJ  _ _  .  _ 

EF(Cl+45.>  423.423.440 

0  440  ft£SUL?=£XPF(Ci)  _ 

00  TO  429 

4*9  IFIAI-IOOO.  J  .416.41AJ.-U.2. _ _ _ 

4  t  7  XX=2.*A1* (  I ,-X i /X 

0F  =  2. *31  . . 

print  199  5.x  1  2. K  15 

’995  FORMAT  (29m0  CHIX  APPROXIMATION  USED  IN  2191... 
CALc  Ch!9(XX,OF,PRO.O«.X12,X15| 

D  RESULT  =  1. -PRO  _  _...  ..  _  _ 

IF (RC SUL  T-, 999999991  4  29.420.420 
0420  RESULT-1. 

GO  TO  429 

416  !F(81-1000.1  418.419.419 

419  XX  ^2  .  *3,1  •  X/ £  1  »- X  1 

D  F  =  2  •  *  A 1  . .  — - -  - 

PRINT  1994.X12.<15 

1794  format (29H0  CHIX  APPROX IMA T ION  USED  IN  2191 
call  Ch!9(XX,DF,PRO.OR,IC12,X15) 

D  RE5UlT=PR0 

IFtRESUl T-. 999999991  429.420.420 

418  CONT  INUE  .  .  — - - -  - 

I  F ( A  1-  i  .  t  45  7,45  7,458 

457  IFOi-l.l  459,458,438  . 

458  CONTlNUt 

IF£X-.50)  ‘.72.473,47-3,. 

D  4  7  3  y  *  A  1 

D  B 1  *y 

D  X  =  l.-X  .  ,  - _ . 

SENSE  light  3 
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COftiTiNuE 

IFi&l-l.)  4*,2»4^3»453 
n  4*12  al=Al4.1, 

0  _ 

1. 1  oht  i 

4  43  COiSiTiNuE 
->3  1  U80 

D  FM=:41+31  -I, 

0  X  X  =  A  1  -  1  * 

D  FMOO  =  fN»X  _ _ _ _  _ _ _  _ _ 

D  FO^LOGF ( X ] /b . 

D  ?  FO> 

0  FW0^*-'M0D«F0 

:F f tX-FMO*2, >  423»447444? 

0  425  XX-FN-XX 

D  .X  =  l.-X  _ _ _  _ 

<*42  SE\S£  lIumT  2 
447  CONT  f NJE 
:  AA=X/S1,-XI 

XX ;  ^  I  ! 

3  3S=  ( 5  FN-XXI ~XX 1* (XX  +  XXl  }!/(!XX  +  2.4XXI-i.)*SxX  +  2.*XXln 

0  SS=SS*4A  _ _ _ _ _  _ _ _ 

IDS  IU!!-1  ' 

Al  =  I1 

01  =  (A|*iFN»An)/<(  XX-f  2**A1  ♦  1,  i  *SXX  +  2,*A1  M 
DOsDl*AA 

Cl*  M  FN-A  i-XX  )  «  {  XX  +  An  }  /  C  «  XX+2  .'AI  -1  .  }*<  XX+2  .*An  ) 

D  CCaCl*AA  ,  .  _  _ _ _  _ 

0  SS*CC/{ 1 .♦00/< i.*SS) > 

IF4  n-l  )  10  9,109.108  ...  .  . 

0  109  SS=1. / {  I .-SS  ) 

0  CI»2lOGCM{FN+i,  j-ZLOGGMCXX-t-a.J-ZLOGGMiFN-XXltlAX+UJ^LOGFiXS  +  iFNi 

1 XX-1 ,  I *1 OGF i 1 .-X  ) 

0-...-  SSUM*1.  DGF  {  sst  ..  _ _ _  _ _ _ 

0  SSUVl S ASUM+C  1 

IF(  SSUMWaO,  )  42  3.423.1-10.  .-..  . . 

D  423  RESULTsO. 

GO  TO  421  .  ... 

D  no  S<J’-'=EXP‘ i  SSUMl  ) 

0  RESJlT  =  SOM  _  _ 

GO  TO  42 ! 


0  323  R£SULT=0. 

0  PA*RESUIT 

IF(A1-1.)  403.A04.405 
D403  ORD::  .39999999E30 

GO  TO  200  0  .... _ 

n  404  OROxTreta 
GO  TO  2000 
0404  nfiO-O, 

GO  TO  2000 
0  3  26  RES<l.T=l, 

0  PA  =  -<ESULT 

I F i B  1- 1 .  )  40? ,40A,405 
421  IFiSENSE  light  21  426.428 
D  426  X  *  I ,-x 
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Cj  Ci  a  d  c»  Q  o  Q  a  d  a  a  a  a  d  a  n  d  n  d  n  c,  a  d  a  o  o  o 


n  K  X  a  f  N  -  X  X 

D  ?  i^£i.O&GMiFN+  i,  )-2L0GGM{XX*l.  J  «2.LDGGHLFi4”XX  +  l  .  3  i-XXftLOGF  i  X  >  ♦  4  FN-XX  ) 

1 •lOGFS i .-X) 

3F{Tl+45«3  460*460*^41  .  -  — -  - - - 

0  460  RFS'JLT  ^u-rfoult 

GO  T 3  428  .  .  . 

D  461  PE«.;)LT  =  l,-RE4ULT-EXPF<n} 

428  IFi'SENSE  LlGHtl)  454»4Z9 _  _ _  _ 

D  444 

IF? l.-Xi-LHOFiAl+Bl-l. S 

0  A1 -Ai-1  .  _  .  _ _ _ _ _ _  ,  _ _  _ _ 

iF{Cl*44./  429.429,456 

D  456  ‘5'ESULT«RESULT+£xPF4C1J  _ _  _  _ 

GO  TO  429 

459  SFJAl-aU  466».466t46J^ _ _ _  _ _ _ _ _  _  .  _  _ _ 

466  '>'  =  43 

A1  =at  _  _ _ _  ,  _ 

H  I  =Y 

Xsl.-X  _ _ _ _  . 

sense  light  I 

467  IF  (X-.  85}  4  6BA4f»9_.469. _ _ _ _ _ _ 

469  Y=A1 

81  =Y 

X=l.-X  . . . .  ^  .  _ _  ...  _ _ 

[F(SENSE  LIGHT  1)  468.470 

4  70  SENSE  L  IGHY_.1_ _ _ _ _ _ _ _  _ 

468  continue 

Z»l.  .  -  _ _ _ _  ...  _ _ _ 

C2=A1*-1. 

230  SUVG  =  0-  _  _ _  .  ... 

SUMG  =  CL8£TA>A1*L0GF<X  t -LOGFIAl) 

IF(SUMG  +  80,)  295.295.240  _ _  .  _ _ _  _ _ 

240  R£SULT=RESULT*£XPF($UMG) 

245  Cl 6=1. -81  -  _  _  _ _  . 

SUMH=0. 

SUMH  =  CLa£TA'>-LOGF(C16)-»-C2*LOGF(XJ-LOGFtX2) . . .  . 

250  !F(  5UMH*-45.  )  295.295.260 

250  RESULT  sRE  SULT+EJCP-Fa-SUMH} - - - — - - - - - 

C 17=A1>2 

C18  =  Z+1.-81  _ _ _ _ _  _ 

C19  =  Al-*-2  +  l. 

C20  =  2+l.  _ _  ... _ _ 

SUVH  =  SUMH-.LOGF  <  X  ) -fLOGF  (  Cl 7  )  -ftOGF (  C 1 8  > -LOGF K 1 9 » -LOGF  (  C20  > 

Z=2+l,  _ _ _ _ 

GO  TO  250 

295  continue  _ _  _ 

IF(SENSE  LIGHT  1)  471.429 

Al=Bl 

.  alsy - - - - — - 

X  =  1  .-X 

RESULT  «l*-REsm_TL - -  .  . 

429  CONTINUE 
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»f-SSE!HSe  LIGHT  31  474.4  75 
0474Y=A1 
D  A  I  -  3  i 

0  a  1  r  .  . _  _ _ 

0  3S^l.-X 

D  «£r.ULT=:l  .-fJESUUT 

4  75  CONTi!*.L'£ 

D  »COM::  1  .-result 

SRCO*'- i  .t-i2l  422.422.427 

0  422  RESsJf  T  =  1  ,  _  _ _ _ _  _  _ 

n  427  PA^HESUt 

D  0RDl==CL3fc  TA-f  {  Al-1.  ^♦LOGF  IXI+jaX-L-J^LOGF 

!Ft0R01  +  45-»  405. 405. *.09 
409  lFiORDl-80.1  41  5. 403. 4113,. 

0415  ORD=exPF i 0»01 ) 

2000  IF5FLAM-i.E-7J_^53_x^43jA44__. 

444  CFLAMsIOOO- 

1F<  FLAM-C''».AM1  483.448.448  _ 

448  AA={ AA1/FLAM3*».  13333333-1.+2. / (9.*FlAM) 

S8*AA/5QRTr  (  2  . /  «  9  .  *Fi_AMJ_l _ 

call  N0RM9<88.CC.PP1 I 

... _ PP0*PP1 _  _ _ _ 

GO  TO  401 

D  483-  Cl»AAl*LOGf  (  FLAM.) -Zi-Q&fiH.UULL+l.J -FlAM 
IFtCl+45.)  450.450*451 

D  450-  PPO*0.  _  -  _ _ 

GO  TO  401 

_D„451-.-PP0=£XPF  <  Cl )  _ 

0  401  SUBR£S*PPO»PA 

-D  -  SUPORO=PPO*ORO  _ _  . 

0  F IORDsFIOPO+SUBORO 

.D.  FlPES*FIR£S  +  SUBREfl  _ 

GO  70(494»496)»IM0E 

494  IFtSU8R6S-l*E-I2J_  486.4 8jfrjt468 _ _  _ 

496  ‘ ( SUftRFS-1 .£-12 !  497.497.487 

-0  497  PA=FIftES  .  . . . . 

0  ORn  =  ‘' I  ORD 

.  443  IF{!1-',  /  547.547.548  _ 

547  INDEX«! 

„548  GO  TOf  532 .53  3.53-UjlliD£A _ 

532  IFIORO)  522.522.529 

529  CONTINUE  _ _ 

0  XC=X-(PA-PP) /ORD 

.  D  _ DEL  =  0,  _  _ 

0  ABOP=A0SF(PA-PP) 

_D  _ A8DP=AanP-ypp _ 

IF( ABOP-l.t-ai  518*518.520 

.  D518  AX*XC  _ ...  _ _ _ 

GO  TO  600 

0520  XHH*0.  _ 

0  XHM»1.-XC 

_  IF  lXC4-X1-Ia-1X2»  138 _ 

13?  Ill»!H4l 

0  .  XXJ«1JX._  _ 

■)  X»I.OT)«*XXI 
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CONTINUE 

If  iSHH-l.e-lSJ  557. *>57, 556 
556  |f{XC-U£*30}  558,558,559 

K  =  {X-*-l.  )/2.  ..  _ _ 

GO  TO  560 

D558  _ 

GO  TO  560 

D559  X  =  XC  _  _  _  . 

560  IfniJEx^T 

IFTIl-**)  516.5-16*522 _ _ 

5  22  NCTi^O 

D  HX-X  -  _  _ 

|FJX-i.E-30l  550.550*551 

C551  X»H'-Qt  _  _  _ 

0  XHHsl.-X 

IF{XHH-i.t~i5i_i5.3L,55L3j.5AZ _ _ 

0550  X=.01 

GQ  TO  552  _  _  _ _ 

0555  X*.99 

552  If «PA-PP)  535*336.537  _ 

0535  0El=1.-X 

GO  TO  538  _ 

0537  0EL»X 

GO  TO  539  _  -  _ 

536  !F<NCT-12)  590.560*546 

0540  A80P*A3SF (PA-PP)  _ 

0  A80P=A3DP/PP 

I F  (  A80P- 1  .£-3,1  536  »  5JL6i.54_l _ 

0541  0CL=DEt/10. 

NCT  =  NCT-*>1  _ _ _  _ 

IF(  ABSFOEL  )-l.E-14)  536*536.542 

0542  X  =  HX*-Dei  ,  _  _ 

0  HX  =  X 

IFCX-l.  )„362»561  »56I _ _  „ 

D561  X=l, 

562  continue  ...  -  _ 

INDEX=2 

GO  TO  527  _  _ 

533  IF{PA-PP)  542.536.539 

539  IF(NCT-12)  543.543*346 _ 

0543  A8DP=A3SF (PA-PP » 

D  ABDP=AB0P/PP  -  _ 

IFt ABDP-1  .E-8)  636.536.544 

0544  DEL  =  DEL/  10.  ,  _  _ 

NCT==NCT+1 

0545  X=HX-Dei 

D  HX  =  X  -  - 

IFIX)  563.563,564 

0563  X*0.  _ _ 

564  CONTINUE 

—  INDEX*  3  _ 

GO  TO  527 

534  IFIPA-PP)  538.336*343 
0536  AX=X 
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GO  TO  6Q0 

D546  AX^X  _  _  ... 

PRINT  524,iC12  5 

b?u  FORMATC13HO  IN  ...CHENT  .14. 14,61M  F  UU^_£jQl!t«£Rti£NC£  WAS  HOT  ATTAINF 
1.  MAY  BE  SOMEWHAT  UHPRECiSE) 

GO  TO  600 

S>J6  PRINT  598.ltl2.K15 

S96  FORMATCZOHO  AROUMEMT  MEGAT I V£  I4»i4l _ 

AX=-0, 

QQ  TO  53  _ _ _ _ _ _  _  _  _ _ 

600  CONTINUE 

D  YX0  =  AX  _  _ _  _ 

0  AHHil.-rXD 

If  t  AHH-1  .£-301  i4.L4>JL3L.. _  .  _  _ 

14  XL{KA)=1, 

GO  TO  57 _ _ _ _ _ _  _ 

13  XLCKAJ^AX 


GO  TO  57  .  _ _  .  _  _ 

1999  CONTINUE 

52  PRINT  51  .ltl2  »K15  _ _ 

51  FOftMAT«26HO  ARGUMENT  HOT  ADMISSIBLE  14,14) 

_  S3  XL{ltAl=-Q. _ _ _ _ _ 

57  CONTINUE 

RETURN  _  _  _  __ 

END 
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r>  QOO  QO 


J 

D 

0 

D 

D 

D 

0 

:? 


n 


n 

12 

14 

121 

123 

124 

125 


SU8SOUT  I IHE  NCFX  (  X£  ♦*£  *8fc  .CE  .  Pt  .  2£  » 

COMMON  NRAtNCAtNRg  *NCB »NftC »NCC • NRD tNCD «NR£ tNC£ 
DIMENSION  X£ ( U ♦ Ae< i »  fBe* I > •€£ ( I i .PEI  1 1 *ZE{ I S 
DO  89  <15*I.NCA  —  - 
00  89  «C  12*1  ♦NRA 
<A=  (<15-1  ^•NRA•^K.i^ 

FLA'*=:0, 

FJO9O=:0. 

FIR^SiO. 

ypo=o.  _ _ 

xxo*o* 

AA0=0.  _ 

BB0*0. 

X  s  n , 

FLA''  =  Ct  lit  A1 
FLA'*-rLAM/2, 

XXD  =  XE  ?  <A I 
SAr  =  AE ( X  A  } 

BBD-HF I XA  5 
IFiAAOJ  80.80.9 
IFiBHOJ  80.80.11 
YX^  =  i  XXD< 

YAD- AA3/2 . 

¥80*330/2. 

A1  ■=  VAO 

81=v80 

IFlYXOi  80.13.12 

P£{<A>-0. —  _ 

GO  TO  491 

X«YXD 

IFIX-1,1  14,14.80 
CONT INUE 


122 


0  486 
487 


IFI AeSFIAl-l. )-1.E-71  121.121.122 
IF<  ABSFI  61-1. 

IF(FLAM-I.E-7)  124,124.125 

PEl<A)=X  _  _ 

Z £  I <A  j  = 1 • 

GO  TO  89  _  _ 

Cl=£XPF( FlAM*x-FLAM) 

PESULT  =  X«C1  _ _ 

PEI XA)=RE  SUIT 

0R0=C1*(  1  .-.FLAflX-Xj _  -  ^ 

2E{XA)=ORD 

GO  TO  89  _ _  , 

LFlAM=FL AM 

XFlAM=lFLAM  _ 

A1  *A1.XFlAM-1 , 

LX*lFlAM-1  _ _ _ 

LLX=LX>1 

1NDE*1  _ 

GO  TO  488 

AIsYAD*,X£4»! _ 

IN0E=2 

LX*LEX-i  _ _ 

LUX»LX 
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497«489«4d9 

D  489  AA1»lX 
D  Ai=Ai-i. 

GO  TO  485 _ _  _ _ _ _ _ _ 

488  LXsLX+1 

0  AAlauX  _  .  _ 

0  Al=Al4.I. 

0  485  P^O.  -  _ 

D  9P=0. 

0  R£SUtT=0.,  _  _ _ 

SENSE  LIGHT  0 

D402  CL8ETA  =  ZLOGGH<Ai<-B15'ZLOGGH<jAi  LrZLQGGMiBl } 
IF(CL8ETA  +  80.  ?  4Q6t4Q6»4>0? 

D  406  CBETAsO,  _ _ _  ...  _  _ 

GO  TO  408 

407  IF£A1-1.!  411,4_iZj.4JU _ _ ... 

411  IFiai-l.l  408*412. 406 

D  412  C6eTAsexPF{CLa£TAK. 

408  IF(x»  80.323.5 

S  IF«X-1  .  >  6.326.80  . . .  . . 

6  IF{X-1.E-14}  323.373.7 

-0.  7  XHH«0.  _ _ _ _ _ _ _ _ - 

0  XHH«l,-X 

IF(XHH~1  .£-1.4J_  J26J.32A.8 _  _  _ 

8  IF<A&SF<A1-1.J-1.E-81  433.433.434 

4  33  IF(ABSF(Bl-L.JrJL..£rA)..  4.3-5. 415. 4.34.-* 

0  435  P=X 

GO  TO  87 _ _ _ 

C  436  Cl=Sl«LOGF( l.-Xl 

IF(Cl+45.}  422./22-»A3.7-- 
0  437  RESULT=l.-exPFtCl) 

GO  TO  429  - - 

434  IF(A8SF(31-l.)-l.e-8)  438.438.439 

-0-438  CI=A1»L0GF-LX1 _ _ _ _ _ _ _ 

IF<Cl-.45.J  423.423.440 
0  440  RESULTsEXPFICl)  -  - 

GO  TO  429 

439  1F{ Al-1000. >  416.416,417 
417  XXs:2.  *Ai*  C  1  .-X; /X 

-  DF  =  2.*ai  _ _ _  _  _ 

PRINT  1995.K12.K15 

1995  FORMAT  1 29H0  CHIX  APPROXIMATION  USED  IN  219  1 
call  CH19 (XX.OF.PRO.OR.KIZ.KIS 1 

D  RESULTsI.-PRO  _ 

IF { RESULT-. 999999991  429,420,420 

0420  RESULT*!. - -  - - - - - - 

GO  TO  429 

416  IF!  31-1000.  ).  .418. 4L9. 419 
419  XX=2.»ai«X/(l.-X» 

0F  =  2.*A1  -  - .  . .  . 

PRINT  1994,K12.K15 

-  1994-FORMAT  I  2 9KaXHlX  APPROXIMATION  LiStD  lfcl_2l9J 
call  CHI9(XX,DF,PR0.0R,K12,K15) 

D  result *PRO  -  _ 

IFiRESUL T-. 999999991  429.420.420 
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OOOO  OQ  QOOQOO  OQ  ooroQCi  Qo  da  n  o  o  n  n 


418  continue 

!EC4I-1.>  4&7«457,458  •  - 

4N7  |F(81-1.I  4&9f458*45« 

458  continue  _ _ _ _ _ — — - - - 

5FU-,50>  472#473*473 

473  TaAl  ...  .  _  .  -  _ _ _  .  -  - 

Ai»8i 

81®Y  -  _ _  .  -  _ ...  .  _ _ 

I  .-X 

SENSE  LiGiiT-i,.  - -  - -  - - - - - - 

472  CONTINUE 

IFiAi-l.i  452*453. 4«l3  ..  _  .  .  _ 

452  A1=A1*.I, 

01*S1-1.  .  _  _  _ 

SENSE  light  i 

.453  CONTINUE  _ _ _ _ _ 

70  n=so 

FN  =  Ai+ai-  I.  ...  _  .  .  .  _ 

XX=Ai-l  . 

.  FMOOsFN*X  ..  . . . . .  .  .. 

FO  =  LOGFf X  )/5. 

F0=EXPFtF0). _ _ _ _ _ _ _  — 

FMO=FMOO*FO 

IF<XX-fMO+2*)  A25-»4.47j*.4A.1  .... _  ..  _ _ _ 

425  XX=FN-XX 

X*  1  .-X  _  _  .  .  .  .  _ 

442  SENSE  light  2 

447  continue  .  _ _ _ _ _ _ 

AA~X/ { l.-X) 

XX  I  s  I  I  . . .  ...  - - 

SS= ( { FN-XXI -XX)*(XX4XXI ) 1/ I (XX42.*XXl“i. ) *(XX42.*XXi ) ) 

SS  =  SS*AA  _  ....  _ _ 

108 

Al  =  il  _ _  _ _  _ 

Dl  =  «AI*(FN+An(/«{  XX-*2.*AI  +  1.  >»  «  XX  +  E.*An  ) 

D0  =  D1*AA  _  __  _  _  .  ..  -  . 

Cl  =  n  FN-Al-XX)*(XX^An  l/I  (XX-*2.*AI-1,)*(XX+2.*AI  }) 

CC  =  C1».AA  _  _  _  ....  ..  _  -. 

SS=CC/ ( I .+0D/( 1 .-SSI ) 

!Ffl]-l)  109.109.108 . . . .  .  .  _ _ 

109  SS=l./« l.-SS) 

Cl  -ZlOGGM  (FN-*1.  l-ZLQGGK<XX4iUJ  -JlEOGGMI  FN-XX  >♦  <  XX^l.  J_*i.0GF  (  X  I  ♦  (  FN- 
1 XX-1 . ) •lOGP ( i.-x ) 

SSUM--LOGF  {  SS  J _  _ _ 

SSUMl aSSUM+Cl 

IF(SSUM1+8C»1  42^a»Ail3».lU - -  --  - - - - 

423  RESULT=0. 

GO  TO  421  - - -  - 

no  SUM=EXPF  i  SSUMl) 

result  =  sum  .  .  _ _  _ ..... _ ,  _ 

GO  TO  421 

123  RESULTaO.-  - - - - - 

P  =  RESUi  T 

GO  TO  86  .  _ _  -  _  ...  _ 

w  326  RESULT«1. 


oo  a  a  o  Q  Q  oci  o  o  oooo  oonn  oooo  a  a  a  c  oooon 


f»  =  RESULT 

. 

GO  ro  86 

4?1  |F{SE,>iSE  LIGHT  ..2,1  426.428  _ _ _ _ _ _ _  .  -  .  _ 

426 

XXsf^N-XX  . 

r  1=:ZL0G0McFN.1.  I-2L0GGM«  xx  +  l.  ?  **ZlOGG«4  FN-XX*!  .  t+XX*LOaf  *  XJ-KFN-XXi 

’*L06FU.“Xi  .  .  - 

lFrTi.-45.J  460.46Q.46I, 

460  R£^>ULT  =i  *-R£SUL.3L„  _ _ _ _ _ _ _  _  _ _ 

GO  TO  42fi 

461  RESULT*!  .-R£SULT-£XPF<  n  » _  .  _ _ 

428  IF«SE.*4SE  LiCiHTl!  454.429 
454  ..  _ 

CiaZLOGGR<  Al+81  }~2LOGGM<  A1  3-2lOG<>W{B1  >*<Al-l.  3  *LOGF  i  X  }  +  E  S 1-1 .  ) *L0G 

lF(l.-X)-LQ£k£.LiLL±Bir_l.JL....^ _ _ _  _ _ _  - 

4lsAl-l, 

If(Cl-.45.}  4  29,.429.456l  .  .  _  .  _ 

466  RESULT*ftESULT>t>EXPF«  Cl  » 

GO  TO  429  _ _ _ _  _ 

459  IF(AI-Bl)  466.466.467 

466  Y=A1  _ _ _ _ _ _ _ _ 

Al=51 

S1=^Y  _ _  _ _  _  .  . .  . 

X  *  i  •  X 

SENSE  light.  1  .  . . 

467  tF!X-,85)  468.469.469 

469  y  *A1  _ _ _ _ _ _ 

A1«B1 

B1  =  V  _ _  ..  _  _ 

X*l .-X 

IFESENSE  LIGHT  X)-.4feS.470  _  _  ...  . . 

470  sense  light  1 

468  CONTINUE  _  _ _ _ _ _ 

2*1. 

C2  =  Al-.l.  .  . .  ...  -  -  .. 

30  SUMG*0. 

SUMG  =  CLBETA-.A1*L0GF{X)-L0GFUU  _ 

lF{SUMG+80.3  295.295.240 

240  RESULT  =  R£SULT  +  EXPFl6UMGi  _  _ _ _ - 

245  C16=l.-ai 

SUMh*0.  --  --  - 

BETA-E.OGPEC16}  +C2*L0GFt  X  )-L0GF(C2» 

50  I F  E  S  jMrt-.4  5 .1  295.295. 260  .  . 

260  RESEjLTsRESULT^EXPFESUMHJ 

-  -C17=:Al+2  - - - - - -  -  - - - -  - - - 

C18*Z-.l  .-81 

C19=A1.2+1.  _ 

C20=Z+1 . 

D  SUMH  =  SUMM-rLO&F(X>-.LaESF(Cl7L-H.O&f  lCXai-l-OGFlCI9i-LOGFtC2Q3 

0  Z*Z+1. 

GO  TO  250  - — -  - - - 

295  continue 

IF  E  SENSE  light  -1.1  471,429  . 

D  471  y«Ai 
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D  Ai=ai 

D  3 1  =  r  ...... 

0  I  ,-x 

0  RESULT  =  U 'RESULT _ _ _ _ _ _ _ _ _  _  . . 

4?<>  CONTI  Nile 

IF  (SENSE  LIGHT  3)  474»,475  ..  _ 

D  «»74  Y  =  AI 

0  AlssSl  .  _ _ 

D  Bi^y 

0  X»l,-x  _ _ _ _ _ _ _ _  ^  _ _ _ 

D  RESULT  5=  1  . -Rc  SUL  T 

475  CONTINUE  _  _ _ _ _ _  ...  .  _ 

D  RCOM=l , -result 

|FlRCOM-i*£-I2I  42.2.,4.Z2.*A27  _ _ 

D  422  R£SULT=1. 

D  42?  P=RESULT _ _ _ _ _ _ _  _ 

87  continue 

0  OROl  »CLB£TA+<  Al-l.J*LOGF{XIA<ei*l._).*l^.C*F.Ll*“>C  J+LOGFC  YAD/reOi 

IF(ORDl+4S.)  403»403»404 

0.403.  0RD=0.  _ _ _ _ _ _  _ 

GO  TO  86 

_  _404  lEiORDl-aO.  i  415«4QS.405 _ _ _ 

0  405  OR0=.6R99'i999E3O 

D  415  0R0=EXPF  (  ORDlJ _ _ _  __ . . 

86  |F(FlAM)  80t542t542 

542  1F(FLAM-1.£-7J.3.4JL*543.544  .  _ _ _  ,  . 

543  oE(<A|aP 

GO  ro  89 _ _ _ 

544  CFLAM»i000. 

IFIFLAM-CFLAMK  547fci48f548  ...  _  _  _ 

548  PRINT  549,iCI2*K15 

549  FORMATt65HO  NORMAl^  APPROX IMAT IQA  W AS. JutSEIL ./ OR  POlSSOK  J»ART  OF  NONC 
IENTRAL  F  219) 

AA=  {  XX  /FLAM  J  *  33^333  3  3- 1 .  ♦2.  /  t  9.«FLAM) _ _ _____ 

B8*AA/SORTF  {  2../{9.*FLAM)  ) 

call  N0RM9(  SB*CXL»PP-U  _  _ _  ...  _  _ 

PP=PPl 

GO  TO  401  _  .  _ _ _  _  _ 

D  547  CI=AAi*lOGF(FLAM)-ZLOGGM(AAI-fI.)-FlAM 

IF(Ci  +  45.3  550>SSO»&&3 _ _ _ _ _  _ 

0  550  PP=0. 

-GO  TO  401  _  ..  _ _ 

D  551  PP=EXPF(C1) 

401  CONTINUE  _  _ 

0  SU8RE5=P*PP 

O  SU6ORD  =  PP*OR0 _ _  _ _ _ _ _ _ 

0  F  lOROsF  lOROt-SUBORO 

0.  F  IR£S=FlRES-t-SUaRE.S _  .  ,  _  _ _ 

GO  TO! 494,496) ♦ I  NOE 

494  IF(  SU8RES-1  .£-12)  48S».4ja4».4Jaft _  _  _  _ 

496  IF( SUBRES-1  ,E-12)  497.497.407 

497  PEI  KA)  =P  IRES _ _ _ _ 

IFI YXO-1 .E-12)  491.491.492 

491  JFiyAD-1  .  )  491.Aa_4.t49A _  .  _ _ 

493  ZE( XA) «.99999999E30 
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GO  TO  69 

2£rKAMEXPF«-FLAM} 

GO  TO  89 

A  95  ££<aA|*0*  .  _ _ _ 

GO  TO  89 
492  ZEi KA  jsFIOHO 
GO  TO  89 

80  PRINT  81.K12*)(.1S  -  - 

81  FORMAT  1 26H0  ARGUMENT  NOT  ADMiSSlStE  2l6S 

p£{x:ais-o»___^ _ _ _ _  _ 

89  continue 

RETURN  _  _ 

END 
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«.u«^sou  T I  Nt'  hC FP  !  Pm  , ,*H , BH «Ch  ♦  X H  ) 

DI*^ENSI0H  Pm!  i  j  ,AM<  I!  ♦3Hi  n  *CM(  1)  .XM£1  J 
COMMON  NRA»NCA.Nfte»NCB*N«C.NCC#N8D»HCD.NRE  tNCe 

DO  5  7  <15*1,NCA  _ _ _ _ _ _ _ _ _ 

DO  5  7  ,NRA 

KAs  !  <1  5-  I  S*NRA^IC12 . . 

D  PP^^-O. 

D  AAD  =  0,  _ _  ...  _ 

D  B6DsO. 

0  VXD^D.  _  _ _  _ _ _ 

D  X^O. 

0  xCaO.  ..  _ _ _ _ 

D  XDD=0* 

0  FtAM^O.  _ _ _ _ 

PPDsPh  t  K A i 

-  AAD  =  Am(<A}  _ _ _ _ _ _ _ _ 

B8D*8H{<A| 

FLAM.CM(tCA)  _ _  _ 

D  FI.AMsFlAM/2  * 

IF5AAO)  52»52,li  _ 

11  If£880)  52.52,12 

12  -IFJPPDi  32_iJj6,16  _ _ _ _ _  .  „ 

15  XH{tCA)=0. 

GO  TO  5  7  _  _  _  ..... 

16  IFJPPO-I.)  18.18.52 

0  la  PPHaO,  _  _ _ 

0  PPMsi.-PPO 

IF{PPH-l.£r  8.i„lA _ _ _ _ _ 

19  IF  £  PPO-1  .£>305  15.l-5.17 

D  17  YAD*AA0/2.  _ _  _ 

0  Y80=8B0/2. 

0  YPD  =  PPD 

0  Al=YAO 

0  B1»YBD_  .  .  -  _ _ 

0  pp=yp0 

74  IFiPp)  599,501.5020 

D  50  !  A  X  =  0  , 

GO  TO  600 

5020  IF(PP-1.)  502.14,599 

502  IF(  A8SF£  Ai-l.)-i.£-?)  121.121.122 _ _  _ 

121  1F( A6SF  £81-1 . 5-1.E-7)  1 23. 123.  122 

123  1F!FlAM-1.L-7)  124.124.125  _  _  _ 

D  1?4  AX=PP 

GO  TO  600  _ _ 

0  125  C1=PP*EXPF ( FLAM  5 

D  X  =  1.ilOGF  £PP)/FLAM  _ _ _ _ 

IF(X)  129.129.128 

D  129  X  =ABSF  f  X  )  •Flam  -  _. 

D  1?8  Xl=X-.fLOGF(  Cl  )-FLAM»X-lOGF£X)  5  /£FLAM+l./X  ! 

IF(X15  130.130.131  _ 

D  130  Xl-l.E-6 

-GO  TO  132  - - 

131  lFfXl-1.5  132.133.133 

0  133  X1-1.-1.E-6  - -  . 

132  CONTINUE 
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If i A8SflXl-X}“l*£-8l  lafe. 126*127 

n  1  ?  7  X  ^  X 1  _  - 

GO  TO  558 

D  '5(S  AX  =  Xl  _ _ _ 

GO  TO  600 

1??  134,n'!i,155  _ _ 

D  136  X»i  Al-1,*3.  •FLAMi/<Al+91t-2.  +  3.*FLAM5 

GO  TO  136  _ 

0  13-*  x-5Ai-i,*FLAMi/{Ai*Bi-2, ♦Flams 

1  36  continue  _ _ _ _ _ _ _ _ _ 

IF  i  X- i  •£**  16  (  614*514*515 

D  614  X*i.e-13  _ _ _ 

GO  TO  554 

515  iFix-l.S  _ _  _ _ 

D  555  X=1.-1.F-1Z 

_554.N  =  25  _ _ _ - _ _ 

!  n-=o 

I  1-0  _ _ _  _ 

516  11=11+1 

D527  RESULT=0.  _ _ _ 

HX=  X 

.  F10RO=0.  _ _ _ _ _ _ _ _ 

FiRES»0. 

LFLAMrFi  AM  _  . .  _ _ 

xFlam*lflam 

A1'A1  +  XFlAM-1.  _  _  _  .  . 

lk=lflam~i 

LLX=LX  +  1  - - - - - 

IN0»  =1 

GO  Tl.  488  _ _ _ _  _ 

486  A  1  =  *  AD  +  XFlAM 

JN0£-'-2  _  - - 

487  lX«_lX-1 

IF(lX(  497.489.489 

489  AAl  -lX  - - - -  - 

Al*Al-i. 

GO  TO  485  - - - -  .  -  - 

488  LX*LX+1 

AAl  a  LX  -  -  - - - - - - -  - 

A 1=A1+1. 

485  PPO  =  0.  -  -  -  . 

RESULTED. 

PA*rO.  . - 

SENSE  light  0 
0  Cl&ETA*ZLOGGM{  Al  +B1  )-Zi_OGGl!UAil-ZLOGGM  t01_L_. 

lF(CL8ETA  +  eo.  )  406*406.407 

406  CBETAsO.  - 

GO  TO  408 

4C7  IF{A1-1.)  411.412,411 _ - 

411  408*412,402 

41?  CBETAsFxPF ICLftET A| - - - - 

402  IF(A1-1,)  510.505,510 

505  IFIBI-I.l  506.422.5Q6- _ _ 

D  506  C0MST«31»l0&F( l.-x) 
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;  f  (  CONST  4-45  .  )  422,422»‘i07 

0  S07  RtS.JLT  =  I.~EXPFfCONST)  ^  - 

GO  TO  4?5 

510  40  2.511.408  _ _ _ _ _ _ 

0  511  CONST sAl •tOGFf X ) 

I  FK0NST445.  !  427.427.512.  _ _ _ 

0  512  RESOLT-EXPF (CONST  1 

GO  TO  4  75  _  _ 

4^8  5F(Xj  1999,323,5 

5  IFCX-l.S  6. 3  26,  1999„______ _ _ _ _ _ 

6  lFlx-l.E-14)  323.323.7 

0  7  .XHH  =  D.  _  _ . 

•3  X  hh  3  1  ,  -  X 

IFiXHH-l.£-14',  326.32^6.8 _  _ _ _ 

8  IF! ASSF( Al~l. )-l.E-a}  433.433.434 

433  iFi  AOSF  (Bl- I.} -I  ..E-ai.  435.435.436 _ 

0  435  PA^X 

D  ORO=i ,  -  _  -  _ _  -  _ . 

GO  TO  2000 

0  436  Cl=ai«LOGF(  1,-X>  _  _  _ _ _ _ 

IF1C1-.45,)  422,422.437 

_0  43?  result  =^1.-£XPFLC11_.___ _ 

GO  TO  429 

434  IFi  ABSF(  31-1.  )-l.£.-8}  A3fl>.4Jie..<L39.  „  _ 

0  438  CI=A1*L0GF( X  ) 

lFlCl+45.}  423»423»44{1 . . . 

0  440  ResuLT=Expr ( cn 

GO  TG  429  .  _ _ -  _ _ _ _ _ 

439  SF(AI-1000.)  416.416.417 

417  XX=2.#A1* { l.-X)/X _ _ _ 

0F  =  2.  i>31 

PRINT  i995.<12»K.15  .  . . . 

1995  FORMAT (29H0  CHIX  APPROX IMAT ION  USED  IN  2I9> 

call  CHI9  (XX.DF.J»aQ.0R.Jli2.jai±. _ _ _ _ 

0  R£SULT=i,-PRO 

I  F  (  R£  SUL  T  -  .999999991...  429j4ZCL,42Q,  . 

D420  RESULT*!. 

jO  TO  42  9  - _ _  _ 

416  IFiai-lOOO.)  418.419.419 

419  XX  =  2.*aieX/ I  l.-XJ _ _ 

0F=2.»A1 

PRINT  1994,X12.X15  -  - 

1994  F0RMAT{29H0  CHIX  APPROXIMATION  USED  IN  219) 

call  CHI9  (XX.OF  ,PRO,OR..K12,X15  1  _ 

0  result-pro 

IF  (RESULT-.  99999999J_42-9j.42XXiA20 _ _ _ 

418  continue 

IF(A1-1.)  457,437.458 _ _  _ 

457  1F(81-1.>  459.458.458 

458  continue  .  -  -  _  _  _ 

IF!X-.50I  472,473.473 

0  .i.73  Y=A1  -  - - - -  - .  — 

0  A1»81 

D  81*Y  _ _ 

D  X»l.-X 
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S£NSe  light  3 

47?  COf«T!IHU£  _ _ 

4*2,463*453 

D  452  Ai*AI  +  i.  _  _ _ _ _ _ _  _ _ 

D  8l*Si-l. 

S6fi^£  L  !6Ht  i  -  ..  _  ... _ _  _ 

453  COH’lNUe 

73  I  USD  _  --  _ 

n  <^o-logf  cx  }/5.  _  _ _ _ 

S  FOs£XPF(FO» 

0  fMO»FHOO*fQ  _ _  .  _ _ _ 

IF  I XX~FMO*2. 5  425,447,447 

D  425  XX=F?«-XX  . . . . . . . . . 

D  XsJ.-X 

442  S£4S£  light  2  _ _ _  .  _ 

447  continue 

0  AA  =  X/{1.-X}  _  _ _ _ _ 

D  XXi»I! 

0-  -  5.S«f  ifN-XXUrXUiXX^XXtil/t  IKX42.*XXI~T.t»tXX*2.»XXn  1 

0  SS»SS»AA 

108  IU!r~l  .  . . * . . .  .  ... 

D  Ai*:i 

D  01»{AI*{FN7AI  n  'nxX42,*AI+J...>*JXX7'2.*An  ) . 

0  00*0i*AA 

0.. . .  CI*5  lFN-AI-XXI*(XX-rAI  il/  t  tXX72.»Al-»1.141XX42**AI  |) _ 

0  CC*Cl*AA 

0  SS»CC/M.-»OD/f  l.»SSU  _ 

109,109*108 

D  109  SS=i./{  U-SSJ  _  . 

D  C1-JL0GGM<  FN  +  1 .  )  -ZLOGOHI  XX42,  » -ZlOGGMC  FN-XX  (  XX  +  l  .  )  *LOGF  {X  ) +  {  Fn 

IXX-i , 1*L0GF( l.-XJ _ _ 

D  5SUW»L0GFJ SSJ 

0  SSuh1»SSUH-^C1  _ 

|F( SSUH1+8C. »  423,423*110 

1‘  423  R£SULT  =  0.  _ 

GO  TO  421 

0  llO  SUHsEXPF  (  SSUMU  _ _ 

0  «£SULT»SUN 

00  TO  421  _ 

0  323  RESULTeO. 

D  PAaSESULT  _  . 

!F(A1-).5  403,404,405 

04Q3  ORD*  .99999999£11L_ _ 

GO  TO  2000 

D  404  0R0*CeFT4  _ 

GO  TO  2000 

0*05  CR0«0,  - 

GC  TO  20C0 

0  326-RE.SULT*!.  _ 

0  PA»R£SULT 

IFJSl-i,  =  4  0  3,404^4X15...  . 

421  IFISENSE  light  21  426*428 


0  426 

D  XX»FN“XX  _ 

D  r  1  *2lOGG«  (  FH+l  •  }  -ZLOGOM  (  MX  +  1 .  J  -ZlOGGMC  FN-XX-*-!  .  I  ♦XX*L06F  I X  >  +  1  FfU-XX  J 

1«L0GF!1.-X}  _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ - 

IFjTl-*45»}  460*460*461 

D  460  RESULT- I  *-S£SU^T _ _  , _ 

GO  TO  42S 

0  461  SESULT-1.-RESULT-£XPFIT1L_.  _  ......  _  ..  . . 

428  IF| SENSE  LiGHTl)  464*429 

0  454  +  _ _ _ _ _ _  _ _ _  ..  _ _ _ _ _ 

0  Ci«2L00GMf  Al*>81j-2LOGaM{Ai  J-ZLOGG«(  B1 J  ♦  ( *1-1*  I *LOGFI  X  i  + 1 81-1 .  » **.00 

iFtl.-Xj-LOOF  {Altei-Jl.  5  .  ..  _ _ _  ..  ...  _ _ 

D  Al=Al-.l. 

lFiCl+45.)  429»429L*456  _ ...  ..  .  ..  _ _ _ 

0  456  R£SULT=RE  SULT+exPFtCn 

GO  TO  429  _ _ _ _ 

459  IFrAl-Sn  466*466*46T 

0  466  VaAl  _ _  ...  .... 

D  Als-Bl 

0  Bi  =  y  _ _ _ _ _ _  .  . . .  . .. 

D  X*l.-X 

SENSE  ..1.IGHX  1 _ _ _ _ _ 

467  IFIX-,85}  468*469*469 

0  469  Y«A1  _  _  .  ...  _ _ _  _ .... 

D  Al=dl 

0  81*Y  .  .  __  _ 


D  X»l.-X 

-  .  ■■  IF  {SENSE. -LIGHT . li,  468*470 _ 

470  SENSE  light  1 

468  continue  _ _ _ _ 

0  2*1 . 

0  C2=A1+1.  _  .  _ 

0230  SUmG=0. 

0  SUMG  =  CLB£7A*-Al»LjDGf.(XJ“LQGtiAlJ _ 

IFCSUMG+80.)  295.295*240 

D  240  RESULTaSE  SULTfEXPX-LSUMGI  _  _ 

0  245  Cl6=i.-ei 

D  SUMHaO*  - -  —  „.  - - - 

n  SUMH=ClB£  TA*lOGF ( C16l +C2*L0GF<  X)-L0GF {C2» 

210  JF£SUMrt*-45.  J  295*293.260  _ _ 

j  260  RESULT=RESULT*-£XPF<SUHH> 


0 

0 

0 

0 

D- 

0 


ClT^Al^Z  _  _ _  -  _ 

c 10=2  *1 . -ai 

C  19  =  A1  .-z*!.  _  _  _ 

C20=2*l . 

2*2*1  . 


GO  TO  250 
295  CONTINUE 
1F{ SENSE 


L I OKT.  .XJ .  .4.7XA429. 


D  471  Y«A1 

-0 _  A  1=8 1  - - 

0  B1=Y 

0  . .  X»1 .-X  _ 

D  RESULT-I. -result 
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429  COs»TI?iiuE 

IFfSEMSE  LIGHT  3} 

D  474  ysAl 

0  A  1=8  I  _ _ _ _ _ 

D  BlsY 

D  *  =  1  .”X  - _ - _  - 

O  RESULT *1 .-RESULT 

47S  CONTTNUF  _  -  -  _ _ 

0  RCOM=l .-RESULT 

iFcfiCQ'^- 1  .E-12»  42;Z*42J2iA2X. 

0  422  result =1 . 

D  427  PA*R£SUl  T  _ _  ^ 

D  0«Dl=CL3eTAY<Ai-l.}*LOGFtXI+{8l-l.|*LOGFC I 

IFtoaol^AS.J  405.40S.A09 _ 

409  lFSQROl-80.)  415.403.403 

D  415  ORD  =  EXPF<ORDl)  _ _ _ _ _  _ 

2000  IF<FLA‘>1-1  *t~7)  443.443.444 

444  CFlAM-1000.  . -  -- 

IF<FLAM-CFLAMj  483.448.448 
448  AA=(  AAl/ FLAM)  **.33333333-1  ..42./  f  9.*FLA«J 
88=AA/SQRTF ( 2./ «9.*FLAMI » 

call  N05?K9{8B.CC*£fili _ 

PPO-PPl 

GO  TO  401  _  _ 

0  483  C1=AA1*l06F(FlAM>-2L0GGM*AA1+1.)-FlAM 

!F«C1*45.>  4  50.45il.45,l  _ 

0  450  PPO=0. 

GO  TO  401  _ 

0  451  PPO=£XPF( Cl ) 

0  401  SUBRES»PPO*PA  .  _ _ 

D  SueORD=PPO*ORD 

0  FIORO=F10RO*SU80RO  -  . . 

0  FIR£S=F1RES*SUBR£S 

GO  10(494  .4961.  IKOE.  _ 

494  IF( SUARF5-1 .£-12 »  486.486.488 

496  fF{SU3RES-l,£-12J_-497.497.4A7  _ 

0  497  PA=FIRES 

D  0RD  =  F  lORO  . -  -  - . - 

443  IF(Il-l)  547.547.548 

547  INOEX»l  _ _ _  - 

548  GO  10(532.533. 534). INDEX 

532  IFORO)  522.522.329  _  _ 

529  CONTINUE 

0  XC=X-(PA-PP)/0«0  ^  _  . 

0  DEl=0. 

D  A8DP  =  A3SFIP.A=R£J _ — _ — - - 

D  ABOP=AdDP/PP 

IF(A80P-1.L-3J  318.518  >32il 
0518  XXsXC 

GO  TO  600  _ .  -  -  -  -  -  - 

0520  XMHsO. 

0  XHM»1.-AC - - — - - 

IF(XC)  137.137.138 

137  1 1 1«  1 1 1*1  _  _ _ _ 

0  XX!»1!1 
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D  x=f.on»«oi 
118  continue  _ 

|F{xHH-1,E-15)  557.M7.5§6 

IF«XC-i.e-30J  55B»Maj.3tSa_. _ 

0557  x»(X+l.>/2. 

00  TO  560  _ _ _ 

0SS8  Xs*/2, 

GO  TO  560  _ _ 

0559  X»XC 

560  INDEX  si  ...  _ 

IPfli-NI  516,516*522 

522  NCT  =  0  _  _ 

£>  MX«X 

IFfX~l.E-30J  55j0.550»Ail _  . 

D551  XHHsO, 

0  XHH*1.-X  _ _ _ 

IF{XHH-1.E-15>  553*553,552 

0550  X  =  .Ol  _ _ _ _ 

GO  TO  552 

-0553  X=.99  _  _ 

552  IF{PA-PPJ  535,536.537 

-0535-  0EL=1,-X _ _ 

GO  TO  538 

0537  0EL»X  _ 

GO  TO  539 

538  IFINCT-12>  540,540,546. _ 

0540  A80P=ASSF tPA-pP) 

0  -  - A8DP=AaOP/P£  _ 

IF! A80P-1 .E-8J  536,536,541 

0541  DEl  =  0EL/1Q..  _ 

NCTsNCT-,1 

IF<ABSF{DELJ-1.E-14)  536 ,3.3j6,>4Z 
0542  Xshx^DEL 

D  HX«X  _ _ _  _ 

IF(x-l.}  562,561,561 

D561  X=l,  .  _ 

562  continue 

INDEXa2  _ 

GO  TO  527 

533  IF(PA-PPJ  542,536.539 

539  IFJNCT-I2J  543,543,546 

D543  ABDP=A8SF (PA-PP)  _ 

D  ABOOsaboP/PP 

IF(  ABOP-1  .E-8  )  536, 536, 54.4, _ 

0544  DEL=0EL/10. 

-NCT=NCT+i  ... _ 

IF( ABSFlOEu >-l,E-14|  536,536,545 

.’‘545  X^HX-OEC  ---  _ 

0  HX  =  X 

IFIX)  563,563,364 - 

0563  X=0, 

— 564-  — C;ONI  INUE — - 

INDEX«3 

-  -  GO  TO  527  .  _ 

534  IFCPA-PP)  538,536,545 
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05'»6  AXsX 

GO  TO  600 
0666  AX^X 

PRINT  626*K12.IC15  _ _ _ _ _  _ _ 

626  FORMAT  {I3H0  IN  ELEMENT  16.I4»61H  FULL  CONVfc'^GE  iCE  WAS  NOT  ATTAINED 
I,  MAT  be  somewhat  UNPRECISET  _ 

GO  TO  600 

599  PRINT  598,X12,X15  .. 

598  FORMAT  1 2 OHO  ARGUMENT  NEGATIVE  I6*i6» 

AX»-0.  — _ _ _ _ _ _  ,  _ _ 

GO  TO  S3 

600  CONTINUE  _ _ 

YXD^AX 

AHK=1,-tXD  _ 

JF( AHH-i .£-30)  16.16,13 

16  XHIXA)  =.99999S99E3a___ _ _ _ _  _  _ _ _  _ _ 

GO  TO  57 

0  13  XDDs  t  YXD«5B0) /I  AA0*<1-».-YXDAL 
XHJXAlsXDO 

GO  TO  57  _ 

1999  continue 

-  52  PRINT  5i.XiZ,X15 _ _ _ _ _ _  ,  _ _ _  .  _ 

51  fORMATI26HO  ARGUMENT  NOT  ADMISSIBLE  16.16) 

.  -  53  XH(XA)a-0.  _  .  _ 

57  CONTINUE 
return 
END 


SU8R0UT I NE  HCTX  «  TE .AE ♦€£ *8E .0«£  > 

COMMON  N»A«NCA.Nft8.NCfi.NRC»NCC»NRD*MCfi  . 
dimension  TE  n  >  .AEU  J  *CE{  H  .PE  t  II  »OftEI  II 

DO  89  fci5»X.NCA  _  _ _ 

DO  89  )f,i2*l,NRA 

KA={  <2  5-1 1#NRA^IC12  ..  . 

D  POiUMaO. 

D  FtAMsO.  .  ..  „ .  .  „  _ _ _ 

0  FIRES*0. 

D  .  FIORDsO.__.^ _ _  ..  -  --  _ _ 

0  YP0  =  0. 

0  XXO-0.  _ _ _ _ 

D  AA0=0. 

D  B0DO,  _  _ 

D  X  =  0. 

FlAM^CE  i  vA) _ _ _ 

0  FlAM-Fl.AM/2. 

XXD=  TEJKA!  _ _  __ 

AAO=At ( < A i 

ifCAAD)  80.80.il _  _ 

11  IFCFtAMf  80.12.12 

D  12  YXDa  I  XX0«*2i/AAn _ _ _ 

0  81=AAD/2. 

0  X»YXO/ I  1  .+YXI1I _  _  ..  _ 

IF(FlAM-15.)  462.462.463 

D  462  A1A*0.  _ _  _ 

!N0E=5 

GO  TO  488  _ _ ^ _ 

0  -.64  A  I  ®  ,  5 

INDf=6  _  .  _  _ _ _ 

GO  TO  485 

463  LAM^FlAM  _ _ _ _ 

0  xlam=lam 

0  A  1A  =  X  lam- 1. _ _ _  _ 

!NDE=1 

GO  TO  488  _ _ _____ . . 

_  487  AIAsXLAM 

I  NOE  =  2  _ _ _ _ _ 

GO  TO  486 

O  469  AlA=:XLAM-*6 - - - - - 

I  NOE  =  3 

GO  TO  488  _ _ 

D  499  A1A=XlAM*.5 

1NDE=4  _ 

GO  TO  486 

0  _488  Al=AIAYi, _ _ 

GO  TO  485 

0  486  A1  =A1A-1.  _  _ _ _ _ 

D  485  AlA^Al 

D  AAl=AlA-.i  _  _  _ 

D  P»0. 

0 . . -PP  =  0.  _ 

D  RESULT=0. 

.  SENSE  L.  IGhT  G _  _ 

040  2  0i.BETA=2LOGGM<AlYBl  I-ZLOGGMIAI  l-ZLCXiGM<ol  ) 
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«  CtSeTA-^eO.  >  406»406»<*07 

D  406  CSETA«0. 

GO  TO  408 

407  |F{Ai-l.jl  4n.412,41J _  .  . __ 

451  408.412.408 

D  4t?  C8ETAaes(PF{CLB£TAj  _  _ 

408  IFiXJ  80.323.8 

8  IF(X-1.E-14J  323.320._? _ 

D  7  XHHaO. 

D  XHHsl,-X  . . . . 

IF iXHH-1 .e-14>  326*326*8 
8  IFf  A8SF(Ai-l.  !-l,e-SJ_3t33.433.434 

433  IF  I ABSF f ai-i, i- I »£-aS  434.435.436 

0  435  P»X  _ _ _ 

GO  TO  87 

0^436  Cl=a.l#LOGFt_L.-Xl _ _ _ _ 

iFSCl+45*}  422.422.437 

0  437  RESULT  =  1  . -EXPFfCU  . . .  _  _ 

GO  TO  429 

434  IFS  A8SF(  sl-1.  )-JL.£:-8)  43A»^438»439 
0  438  Cl=Ai*LOGF<X) 

I F  i  O  1  ♦  45  .  )  4 Z3-.A23u.440 _ 

0  440  REStjLT=£XPF(Cl  f 

GO  TO  429  -  _ _ _  _ 

439  IF(Al-iOOO,)  416.416.417 
417  XX=2.*A1« S 1 .-XI /X 

OFa2.»01 

PRINT  1995.Xi2.itl5  _ _  . 

1995  F0RMAT{29H0  CHlX  APPPOX 3 MAT  ION  USED  IN  219) 
call  CHl<3!XX»DF.PRO.OR.Itl2.X15) 

0  RESULT^ i , -PRO 

--  IFCRESULT-. 99999999)  429.420.420 

0420  RESULT=1. 

_ GO  TO  429  _ _  _ _  . 

416  IF{61-1000.)  418.419.419 

-.419  XX  =  2.  •81*X/ <  l.-X  ) 

0Fa2. »A1 

_  PRINT  i994,xl2.X15  -  - 

1994  F0RMAT(29H0  CHIX  APPROXIMATION  USED  IN  219) 

_  call  CH:9<XX.0F.PRO.OR*ILL2*iLL5)  _ 

0  RESULTaPRO 

IF  (RESUl  T-. 99999999)  429..42il.420 
418  continue 

IF(A1-1.,'  457.457,458  _ 

457  IF{81-1,)  459,456.458 

458  CONTINUE  - :: -  - — 

IF{X-.50)  472,473,473 

D  473  Y»A1  _ 

0  A  1=81 

0  B1=Y  - 

0  X-l.-X 

- -SENSE  light  3  - - 

472  CONTINUE 

JflAl-l.)  452,453*453 _ 

0  452  Al»Al*-l. 
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QDOOOO  OD  *000  Qoonoo  OQ  QO  Q  QO  OQ  CiOO  OQO 


0  81»SI-1. 

SENSE  LI6HT  I 
C0NT5NUE 

?o  n*so  — — - - - - - - 

FNsAl*61“U 

XX»A1-1.  -  -  --  - 

F«OD®FN*X 

FOstOGFJ K i/5.  _  --  _ 

FOsExP-f  {FOJ 

FHO®FMOD»FO  _ _ _ _ _ _ _ _ . . . .  -  --- 

IF? XX-FMO+2. }  425»447,AA? 

4?5  XX®FN~XX  _ _ _  _ 

*  a  I  .  -  X 

442  SENSE  light.  2  _ _  --  .  -  _ 

447  continue 

AA*X/li.“X)  - - - - -  _  —  — - 

XXi  ®l 1 

SS=  (  (FN-XXl-XX)  •{XX4XXJl.UV  t-EXX>2.*XXI-l.)*tXX»'2.*XXn  L  .  . 

SS=SS*AA 

los  n«n-i  - 

AUI  i 

0i  =  (  Al  »(  FN+AI  J  J /{  tXXtZ**Al-iti.*.i*  tXX+2«lLA.l  J  i - - - - - 

O0=0i*AA 

Cl®  C  (  FN-AI-XX1*JXX*A1  ).>y.UJtX>2^*Ai“l.  !*(  XX*2.*Ain 
CC=C1*AA 

SS®CC/S1.*DD/(1.*5S}J  _ 

IF(  1  I-n  109.109»106 

109  SS®l./(  1  .-SSI _ _ _ _ _ _ _ _  _  .  -  - 

ClaZLOGGMt  FN  +  1. )-2L0GGM(XX42. ) -2L0GGM I FN-XX > ♦ <  XX4 i. »*L06F  CXJ  +  (FN- 

lXX-1  .  )  *l  0C»F  {  l.-X) _ _ _  _ 

SSUM.lO&F ( SSi 

SSUMl aSSUM  +  Cl  . . .  .. 

IF(  SSUMi-^80.  >  423,423,110 

423  RESULT aO.  _ _ _ — _ _ _ — _ _ _ _ 

GO  TO  421 

110  SUM  =  £XPF  J  SSUMl)  _  -  .  - _  -- 

RESULTaSUM 

GO  TO  421  .  _  _ _  - 

323  RESULT=0. 

paRESULT  _ _ _ _ _ _ _ _  .  _ _ 

GO  TO  482 

326  RESULT  =  1  .  _  .  .  ,  . 

PaREbULT 

ORO=0.  _  _ 

GO  TO  482 

421  IFISENSE  light  21  426,428 _ _  _  _  _ 

426  Xal.-x 

XX=FN-XX  . . .  _  - 

T l»ZL06GHf  FN*1 .  ) -ZLOGGM <  XX ♦ 1 , ) -ZLOGGM) FN-XX  +  1 «  »+XX«L0GF i X  f +  1 FN-XX ) 

i*logf ( 1 .-X )  -  -  . 

IFiTl+45.)  460,460»461 

-0-460  result  =  1  .-RESULT— - - - - -  -  _ 

GO  TO  428 

D  461  result  =1  . -RESULT-EXPFJ.TXI _  _ _ 

428  IFISENSE  lIGhTI)  454,429 


1C5 


Ii> 

L 


n  4S4 

0  t“ZLO<i6M«  AU-^k006«tSi  »♦«  Al-i.  <  X  i  ♦«  8k-U  >• 

1F{ i.“X»-LOOF( Al^ei~l. > 

0  AlsAl-l.  _ _ -  .  _ 

JFICH.45*>  429.429.456 

C  456  R£SUL.T»R£SiJLT+EXPF{Cl  J  _ 

60  TO  429 

459  |fCAi-ai}  466*466. 4&7. 

D  466  y*Al 

D  Al=Bi  _ _ _ _ _  - 

D  B1=Y 

0  X“1  .“X  . . .  _ 

SENSE  light  i 

46?  IFiX-,85)  46e.469.469 _ 

0  469  Y*A1 

D  A  1*41  _ _ _ 

0  81  =  '^ 

0  X»l.-X  .  _  .  _ 

IflSENSf  light  iJ  468.470 
470  SENSE  light  1 
466  CONTINUE 

D  2*1.  _ _ _ 

D  C2*Al*l. 

D250  SUH0  =  0.  _ _  _ 

•>  SU4GaCLS£TA4Al*LOGF{X>-LOGFIAi> 

1FI$UMG*80.}  295.295.24Q_ 

0  240  RESULTsRESULT+exPFI SUMG» 

0  245  C16*1.-B1  _ _ _ _ 

0  SOMH»0. 

0  SUMH«CLB£TA  +  L0GFCCi6»>C2.*l.a<if  «X»-LCM3F<C2J 

250  lF<SU«ri*45.t  295.295.260 

0  260  RESULT  =P£SULT-.£XPFtSUHM,t _  - 

0  C17*Ai-.Z 

0  C18sZ>l.-81  _ _  _  _ _ _ 

0  C19=Al+Z+l. 

D  C20=Z+l.  . 

D  SUMH *SUMH+l06F  i  X  )  i-LOGF  {  Cl 7  )  *L0GF  (  Cl 8  !  -LOGF  <  C 1 9  )  -LOGF  S  C 20  ) 

0  Z=Z+1.  _ 

GO  TO  250 

295  CONTINUE  — _ _ _ _ _ _ _ 

IFCSENSE  LIGHT  l»  471.429 

0  471  V«A1  _  _ _ 

0  Al«8l 

0  81  =  Y  _  _  . 

0  X*l.-X 

D_  -  RESULT*!  .-RESULI _ _ _  _  _ 

429  continue 

I  Ft  SENSE  LIGHT  JlJ_  _4.T4_t47A _ 

0  474  y*Al 

D  A1*B1  _  -  -  . 

D  Bl-Y 

0 - X*l.-X - - - - - _  ... 

0  RESULT *1 .-result 

475  continue  _  -  _ _ _ 

0  RCON» 1 .-RESULT 
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IF {RC0««l.e-12)  422.422*427 
0  422  RESULT  =1 . 

D  427  R*«eSyi.T 

8?  CONTINUE  -  .  - - 

0  0RDI»Cl8ETA4« Al-.5>»L0GFJXl4{Si4,5 }♦LOGF{ I .-X  I 5*L0GF < AAO I 

IFIORGl-i-45*  I  10i*aiU4»I62 _ 

0  101  0«0#0. 

GO  TO  482  _ _ -  -  . 

IQ2  IFIO«0i-80, I  4l^.l0i.l03 

0  1S3  . . . .  ,  _  . . . 

GO  TO  482 

D  415  ORO*exf>f<OHOU  _ _ _ _  _ _  _ 

482  IFCFLAM-1.E-7J  443*443*444 

443  REIKASsp  _  _ _  .  .  .  . 

ORE  f  K4  j  *OR£> 

.  GO  TO  .89 _ _ _ _  _ _ -  ..  _ _  _ 

444  CFLAMalOOO. 

IFl  FL4M-CFLAM}  483 .448».448  _  _ 

448  PRINT  449.itl2.<15 

449  FORMAT  £65H0  NOR«AU  .APWIP.X1HA.T.I0N  WAS  USED  F0«  PQISSON_PART  OF  NONC 
IENTRAL  F  2195 

AA=i  AAl/f  LAHJ»».l33JL3.i3L2r:i^±2AilA«Jl£JLA»l!  ..  _ _ 

SB=AA/SQftTF( 2./ 19.*FLAM1 5 

call  NORM9(aa*cc*PPiJ _ _ _  .  _ 

PPsPPl 

GO  TO  401  _ _  ...  . 

D  483  Cl»AAl*l.OGF(FLAM5-2LOGGMIAAl+l.  5-FlAM 

1F(CW45.1  45ajL45iXU45,JI _ _  _ _ _ _ _ _ 

0450  PP=0. 

GO  TO  401  _  .  -- 

'431  0P=EXPF(C15 

401  CONTINUE  _  .  .  .  .  . 

0  POSUMaPOSUM+PP 

J  SUBRtS=P»PP  _ _  _  _ _  _ 

0  SU60RD=PP*ORD 

FIORDaFIORD  +  SUBORO  . .  _ 

FiR£S*FIRE3*SUaRtS 

GO  T0<  494,497.494*496*47e*.4-l6ii  *  INDE  _  .. 

476  IF<PP-1,E-12  1  484,484*488 

494  IF(PP-UE-5J  484,484.488 - - - - - .  _ _ _ _  _ _ _ 

497  IF(A1a-1.9!  484.484,498 

498  IF(PP-1,E>I25  484,484.488  -- 

496  IF(A1A-1.4)  484.484.498 

484  GO  TO«  4e7.490.499.49lA490.4JiiJ  .INDE 
490  FR6S1*FIRES 

-  FOROlsFIORO - - - - 

FPOSMsPOSUM 

F  IRESsO.  .  -  -  ^ 

F IORO«0. 

.  P0SOM«0.  _ . - 

GO  TO <  48  7,48  9.499,4  91 .464,491 ) * INDE 

49U_IFIXXD)  492  «493»4a3 . — — -  - -  - - - - 

492  FRESs  < 1 . -FPOSM+FRESl-r IRES  5 /2, 

-  .  F0RD«F  lORO-FORDJ -  .  -  .  . . . . 

GO  TO  481 
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49^ 
40^ 

405 
495 
4  04 
481 

0  115 

-  11* 

19 

18 

80 

-  81 

89 


|F{  4e4P!X){0J“l,E-12}  40  3  *4  03  *4  04 
FRES= { i.-FPOSM?/2, 

OROl  --ZLOOGMt  81  +  .5  J-ZLOGG«(  . 5 ! (  B 11  -FLAM 

IF  iOROl+AS.  I  405*4G5*-4-95.^ _ _ 

FORDaO. 

GO  TO  481  _ _  -  - 

FORO^EKPF iORDl I 

GO  TO  481  _ 

FRES* ( l.-FPOSM+FRESl+FIRESJ/Z. 

FORO==:  F  I  ORD+FORfiuL- _ _  -  ....... 

CONTINUE 


IFIFRESI  .U5.115«116 _ _ _ 

F«£S»0-. 


CONTINUE 
PE(ICA1=FR£S 
If  I  FORD-. 

OREfFA 1*. 99999999E30 
GO  TO  89 
OREl <A }=f ORO 


GO  TO  89  .  . . 

PRINT  aitXU.KlS 

FORMAT  i2*MC  AffiGUMEiU-  JiQT.-AXlMl^lJai.£^ 2JL&-) 
PE(<A) B-0. 

0Rt(KA)»-Q.  _ _ _  . 

CONTINUE 

RETURN  _ _ ^  _ 

END 


5*UOUf  { AAD  S 
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SUBROUTINE  NCTP i PO.AQ*Cw»XO J 
DISSENSION  PQ(  i  3  ,AQI  1  1  »CQ5  U  »XQ{  II 
COMMON  NRA.NCA»NRB»NCB*NRC.NCC  f NR0*NCO 

00  S  7  JCiSsl.NCA _ 

00  57  <12  =  1  .NRA 

KA=  E  K1  5-1 3*NRA^KX2- _ _  -- 

PPD=0, 

AA0  =  0,  _ _ _ _ _ _ 

YXDaO. 

X»0.  - _ _ _ _ _ - _ 

XCsO. 

X0D*0.  .  _ _ _ _ 

FtAM=0. 

PPD  =  PQ{KA3  _ _ 

AAO^AOEKA) 

- FLAM  =  COtiCA)  .  -  -  -  _ 

FLAM=FLAM/2 . 

IF(  AAD3  52»52.12 _  .  .  .  . 

12  IFEPPDI  52»15.i6 

15  XOi  KA  3  9999959900 _ _ 

GO  TO  57 

16  IFlPPD-i.3  lflaXat.52 _ _ 

18  PPH=0. 

PPH=1,-PP0  _ _ _  . 

Ifr(aPH-i  ,E-30)  I4,14tl9 

19  lFlPPO-1  .£-30)  i5*.X5.iXT.„ . . . 

17  81=AA0/2. 

PpsPPD  _ _ _ - 

PU  =  0. 

IF(FtA.M-l.£-6)  i26»J-a6.«-lX7  ___ 

127  IF ( Flam- 1000.  I  128*129tl29 

1  29  PU  =  0.  . . 

GO  TO  137 

126  PU=.5  - - 

GO  TO  137 

128  lAM=FlAM  -  - -  . 

XFlAM=lAM 

AA1  =  XFlAM  +  .5  .  - . .  .  . 

132  C1=AA1  <^LOGF  I  FLAM)-2lOGGMIAAI>1»  3 -FLAM 

I  “{C1  +  3C.)  130.  laOUJU-  . . .  - 

131  pu=Pu+exPF( Cl ) 

AAl-AAl+l.  __  _  _ 

GO  TO  132 

130  AA1  =  X^LAM-,5  -  _  - 

135  IF(AAl)  133,133.134 

IF(C1+30.I  133.133,136 

136  PU=PU+EXPF( Ci I _ 

AA1=AA1-1 . 

GO  TO  135  -  .  _ _ _ 

D  133  PU=.5-PU/2. 

-  O  1  37  CPUsABSF  i  PP-PUl _ _ — _ 

IF(CPu-.05)  123.123,124 

0  123  X  =  CPU  _  _ 

GO  TO  125 
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174  :F(PP-.On  138.  138.  139 
|f«PP-,99j  1^0.138.138 
D  119  x^^l.-PP 

GO  TO  1219  _ _ _ _ 

0  140 

125  COKTINUE 

IFfX-l.E-SDl  314,914*515 
C514X=l.£-16 
C-0  TO  554 

515  lEfX-l.J  554.5S5.5S5. _ —  — _ _ 

0  555  X-I.-1,E-IZ 

554  f^*^30  _  _  . 

I  1=0 

516  11=11*1  _ 

D52T  RESUlTsO. 

hx  =  x  _ _  _ _ _ _ 

POSl..'MaO. 

F  iORO-0.  .  -  _ _  ,  . 

F iRES»0. 

|F(FLAM-15.>  462.462.463 _ _ 

462  AU*0. 

I  NOE  =  5  -  _ _ 

00  TO  488 

464  A  1  =  ,  ?  .  .  _ _ 

!N0e»6 

GO  TO  485  . 

461  lAM=FlAM 

XLAMsLAM  .  _ _ _  _ 

A  1A  =  XLAM-  1  • 

n<OE»i  _ 

GO  TO  488 
D  487  A  lA=rXtAM 
I  NOE  =  2 

GO  TO  486  .  _  _ 

0  469  Al-aXLAM~.5 
I NOE»  3 
GO  TO  488 
0  499  A1A=XlAM+.5 
F  NOE  =  4 

GO  TO  48  6  _  _ _  _ 

0  488  4 l=Al A*1  . 

GO  TO  485  _ 

D  486  A lsAIA-1  . 

D  485  A  1A  =  A1  _  _ _ 

0  AA1=a14-,5 

0  P=-0.  _ _  _ 

D  PPO=0, 

0  result =c.  . 

SEMSl  light  0 

0402  ClBETAxZLOoGMF  A  1  *81  }-Zi.OG&MlAi  1  -ZlOOGMIBI  1 
IF(CLBETA*80. I  406.406.407 

c  406-..Ca£TA«0.  _ _ _ 

GO  TO  408 

,  «  0  /  *  .*■*>  t  \  \ 

MU  /  i.;  .  _ 

411  IFiBl-l.!  408.412,408 

no 


(*\2  C8ET4  =  £xPfiCLSeTAj 
4  58  IFCXI  S2»J23.1i 
^  !Fix-i.E-14?  323,323,7 

D  7  XHm.-=o.  _ _ _ 

0 

|C{  ,£-14)  326«  26.8  _ _ _ _ 

8  IFi  AB^?|  Al-1 . >-!,£-« j  433.433*434 

433  IF!  ASSFI  Bi-1  , ‘-l.£- »>  4  3  5 . 4.35  *A36  . 

D  435  P-% 

GO  TG  87  _ _ _ _ 

D  436  Cl=6l«tO&F ! I .-X i 

!f{Ci+45.j  422»422»437  ..  _ _ 

D  437  RESULT  =  1  .-£*PF;Cn 
GO  TO  429 

434  !F( A8SFt Si~l . }-l.£-6>  436.438*439 

_I1-4  38  Cl=Al*LOGFiXl  ...  ... _ .. 

IF(Cl-*45.!  423*423*440 

0  440  R£SUL7:=EXPf  {  Cl  j  _ 

GO  TO  429 

439  I F( Ai-lOOO. I  416.416.417 
417  XX=2.*A1*( i,-Xi /X 

DF»2.*31  _  . 

PRINT  1995.K12.T 

1995  FORMAT  !29h0  CHIX  <  1  MA T  ION  .USED  l.N_2I9} 

call  Ch!9{XX.0F,F  „  ,K12,X15l 

0  RESULT*!. -PRO 

lF(«eS0L  T -.99999999 3  429.4  20.4  20 

0420  .RESULT*!. _ _ _ _ _ _ 

GO  TO  429 

416  lF(ei-lOOO.)  418.419.419  ....... 

419  XX*2.  *0i»X/' (  l.~X3 

0F»2. *A1  ...  .... 

PRINT  1994,k12.X15 

.  1994  FORMAT  {29H0  CMiX  APPROXlMAUDN..JliEJ2.iiL.2J.'SJ_ 
call  CH19{XX.OF,PRO.OR.X12.K15> 

0  RESULTsPRO  .  ..  . .  _ ,  . 

1F<RESULT-, 99999999)  429.420.420 

418  continue  .  _ 

IF{Al-l.t  467,457,468 

467  IF!Si-l.l  459.458,468 _ 

468  continue 

iFiX-.SO)  472,473,473  _ 

D  473  Y=A1 

D  A1*B1  .  . 

D  BUT 

0  --  X»l.-X  - . . . . ... 

sense  light  3 

472  CONTINUE  . . 

lF(Ai-l.3  462,453,463 
•>  452  AUAl.l  . 

D  BUBl-l,. 

. S£  N  r>E  L  I  Gh  I— 1-  - — 

453  CONTINUE 

70  IU80  _ 

D  FN*Ai*B.'l# 
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0  *  X  S  A  1  -  i  , 

0  «'y03-«'N*X  _ 

0  FO-LOGF  (  X  ! /*>. 

D  FO=£xPF  «  KO!  _ _ _ _ _ _  _ - 

D  FMOsFMOO*FO 

I  r  i  MX-f  «i)  +  2  .  s  42S*4<*7  ***47  .  . . 

f;  XXar  N-XX 

0  - - - 

442  SENSE  lIGhT  2 

447  CONTINUE  - - - -  -  -  - 

D  AA»X/ { l.-XI 

D  xxi  =  n  _  _ _ 

D  SS*  H  FN-XXI  -XX)»  {XX+XXl  H  /  (  (  XX42.«XX  I  -  1 .  }  ♦  (  XX'»-2.*XXI  I  ! 

0  SSsSS*AA  _  _ 

108  n*n-i 

D  AI  =  II.  _ _ —  . 

0  01*(AI*{FN+Ain/{(XX+2.*AI  +  l,)*(XX+2.«An  J 

D  DD*D1»AA  -  --  _ 

0  C  i  a  (  (  FN-A  I  -  XX)  •  t  XX  +  Al  )  >  /  {  i  XX^2  *«AI  -1  •)*(XX  +  2**An) 

0  CC=Ci*AA  _ 

0  SS*CC/<i.+DD/(l.-SS)) 

.  _  If  £11-1)  iQ9.109j^XCE _  _  —  -  — ' 

0  109  SS*l./£ 1 .-SS) 

0--  ClaZL06GM(fN*l.. ) -2XQGG«.(  KXtZ*J-JJLQC><i  Ht  FS~XK  }  *  i  KA*  1  •  i  *LOOFA^  )  *  i 

1 XX-l . ) *l OGf ( l.-X ) 

0  SSUWaLOGf  <  SS)  _  _  - 

0  S&UW1»SSUM4C1 

IF(  SSU)yl>B0>J  42:>i421>110 - -  - 

0  427  RESULT=0. 

GO  TO  421  - - - 

0  no  SUM=r  XPF  (  SSUMl  ) 

0  RES’JLT  =  $uy  _  _ 

GO  lO  421 

D  323  RESuCTtiO.  - - - -  — . - . - 

0  PsRESUlT 

GO  TO  482  -  .  - 

0  326  RESUlT=1. 

D  PaRESULT  - -  - 

D  ORDaO, 

GO  TO  482  _  _ —  -  —  - 

421  IFIStlHSE  LIGHT  2)  426.428 

D  426  Xal.'  X  -  . 

0  XX»FN-XX 

D  Tla2L0GGM<FN*l.  )-ZL0GGMlXX4l.)  -Zi-OGGM<  FN-XX-*-!  .  )-.XX*LOGF£X  )  ♦(  FN 

1*lOGF{ 1 ,-X) 

IF<Tl-.45.)  460i4A0»4fcl -  - - - 

D  460  RESULT=1 . -RESULT 

GO  TO  428  -  - 

D  461  RESULT»1 . -RESULT-EXPF ( T 1 ) 

428  IFfSENSE  lIGkTI)  454.429  - -  - 

D  454 

0  Cl»2LOGG« {  A1  Tyr.fMi  Al  t-.7LQGGM £ aiJL±lAi,-l .  j  *LOGFiJU-±i-BirJ.*i 

IF ( 1.-X)-L0GF£ Al.Bl-1.  ) 

D-  .  -  -  A1»A1-1.  - -  - - 

IF{C1*45.)  429.429.456 
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D  456  RESULTaRESULT-^ExPFiCn 
GO  TO  429 

459  IF(Al-8n  466.466*467 

D  466  r*Al  - - - - - - - 

D  AlsBI 

D  S IsY  .....  .  . 

D  Xsl.~X 

SENSE  light  1  _ ....  . . 

467  IFrx-,85i  466*469*469 

D  469  V*Ai  - - - - - - - - - - 

0  A  1  “  0  i 

D  81*7  -  -  .... 

0  X  *  1 .  ~  X 

IfiSEHSl  light  ii  .46it_4.1Q _ _ _  _  _ 

470  SENSE  light  1 

468  CONTINUE..  _ _ _ _ _ _ _ _ _ _ _ _ _  .. 

0  2*1. 

0  C2=Al+i.  .  . 

0230  SUMG*0. 

0  SUMG»CLB£TA  +  A1*L0GF  (X>-E0GF.(AI.J _  ..  ...  _. 

IFiSUMG+aO.)  295*295*240 

--  0  .240  RESUL7*R£SULl7EXgfiSUMGl _ _ 

0  245  C16=U“81 

D  SUMH  aO«  .... _ _  .  ..  .... 

D  SU^HaCLSE TA  +  l0GF{C16) +02*4008 1  X  >-LOOF(C2) 

250  !F{SUMH+45.J  295*295*^60- -  - 

D  260  result sRESULT+EXPFI SUHH) 

_ D..._  C17*AX*2  _ _ _ 

D  C  18*2+ !  .*ai 

0  C19*A1 *2  +  1,  _  _  _ _ 

0  C20*2+i, 

0  SUV-.  =  SUMrt*LO&F  ( X)  +LQGF.iCi7  J.+i.OGd^.tJCLa  J  ~LOGF  <  C19 )  ~LO&F  {  C20  i 

0  2*2* i. 

.  .  -  GO  TO  250  _ _ _ _ _ ._  ..  _ 

295  CONTlNUf 

I  F  {  St  NSE  LI  GHT  1 1  4.7i*A2.9 _ 

0  471  y*Ai 

0  Ai  =  b;  ..  _ _ 

0  81*> 

0  x«l.-x  ..  ...  _ _ 

D  RESULT*! .-result 

4  29  CON  T I  NUE  _  _  _  _ .  . 

IF(SENSE  LIGHT  31  474*475 

D  474  Y  =  A1  _  .  _ _  .  . 

0  Al=81 

.  D  B1*Y  . . . . . 

D  X*l.-X 

o  result *1  .-resuet - -  ....  _ _ _ 

475  continue 

0  RLOMs- 1  .-result  - -  .  _ 

1F(RC0M-1.E-12»  422*422*427 

-0  422  RESULT«1.  - - - 

D  427  P»RESULT 

8  7  continue  _ _  .  .  . .  .  _ 

D  0R01«ClBETA*<a1-1.>«L0GF(X>+(B1-1. )*lOGF{ 1,-x )-L0GF< 2. » 


113 


aaaaci  .  aaaaoaa  o  o 


|F(0a01+45.)  lOi*10l#lO2 

D  101  OftD^O.  _ _ _ 

60  TO  482 

102  IPlOROI-80,3  415. 103. 103  . . . - 

0  101  Q3>  0=^,49999999e30 

GO  482  _ 

0  415  ORDaExPF i  OROl i 

482  IF(FLAM-l,£-.7}  443.443,444  _ 

0  443  P4»P 

GO  TO  89  _  _  .  -  ...  .  _ 

444  CFlAMsIOOO. 

If t r LAM“CFlA«J  483,448.448. _ _ _ 

445  PRINT  449.K12.K15 

449  FORMAT{65HO  normal  APPROX  1  MAT  lOJt  WAS  ,0S£D  FOR  POISSON  PART  OF  H‘ 
IFNTRAl  T  2191 

AA  s  {  A  A 1  /  F  LAM }  •  *_.JL13 J.33  J  3-1  .»2./(9»*FLAM) _ _ 

80  =  AA/9ORTF<  2./<9.*FlAM)  I 

call  NORM9{88,CC.Pi>J.> _ _ 

pPQsPpi 

GO  TO  401  . .  ,  .  _  .  , 

0  483  Cl=AAl*LOGf IFLAMl-ZLOGGMIAAl+l. )-FlAM 

IF(C1*45.)  430j.-43iU.5il _ _ _ _ 

0  450  PPO*0. 

GO  TO  401  _  _  .  .  _ 

0  451  PPO»cXPF(Cll 

401  continue  _  -  -- 

POSUM»POSUM*PPO 

SU3RES*P«PPO _ _ ... 

SUaORD=PPO»ORD 

FlORO-FfORO+SUBORD  .  .  . . .  .  . 

FIRSS^FIRES+SUBRES 

GO  T0<  494,497,494,496.476,478.)  *-lA£>e  _ 

476  IF! Ppo-l .E-12)  484.484,480 

494  IF(PPO-l.£-5J  404.484.488 _ _ _  . . . 

497  IF(A1A-1,9)  484,404.498 

490  IF(PPO-l .E-12)  484,484,486 _ 

496  IF(AlA-i.4J  484,404,498 

484  GO  T0(  487, 490, 499*493., 490, 49i>_.-lNliL _ 

490  FRES1=^FIRES 

_FOR01»FIORO _ _ _ _  -  _ 

FPOSMxPOSUM 

.  .  CPP»l  1  .-FP0S«)/2. _  _ _ 

FIReS»0. 

FI0RD*0.  .  .  .  _  .  .  _ _ _ 

POSUM.O. 

GO  TOl40  7,4a9,499.*4Stli4i4i_4iLL».iJlD£ _ _ _ _ _ 

491  IF(PP-CPP)  492,493,493 

492  FR£S*  «  l.-FPQSM+FA£iLrf.lJfl£iiyJL,  _ 

FORO-FIORD-FOROl 

1NNE»1  -  -  - 

GO  TO  401 

D  493  OCPPsAesF-XPfiL-CP-P-J - -  - -  - 

lF(P'‘PP-l.E-8)  403,403,404 

403  XOIKAJaO*. -  - 

GO  TO  57 


D  404  s  -  !  1  . -FP0SM+F8ES1  IRES  >  ^2 

D  FOf<!  i  =t  F  i  Ci«  080  1 

1 Hn- - r 

481  CONT : N J£  .  . 

D  PA^FsrS 

0  ORD  =  ''’ORO 

CONTlHiiF 

D  ALPf-:Ari, 

lF.-3P.rpP5  565f  ^66.566 

S66  !FS''A-CPP)  567.567t56a _ - 

D  S67  PA^CPP 

0  X » 0 .  .  _ 

GO  TO  *568 

565  lfr?A-CPP5  568»567»567 
568  CONT I NU£ 

IFili-i)  547f547,5aa _ _ 

647  I!M0EX=I 

348  GO  T0( 532 .533,534) .INDEX 
53?  IFtOftDi  522,522.5?9 

529  GO  T0(  569 ,570) . INNE . 

0  569  XC=X* { PA-PP 5 / !ALPHA»0RD) 

GO  TO  57  i  _ _ - _ 

D  570  XC=X- ( PA-PP ) / ( ALPHA*ORO) 

571  CONTINUE  _  . 

D  D£l=0. 

D  ABOPs  A3,Sf-  (PA-PP  )  ^  . 

D  AB0P=A30P/PP 

IF  /  A3DP-l.E-8J-_5LXa.,5lat52Q_ 
0513  AXiXC 

GO  ^0  600 
052''  XHm  =  0. 

D  XH)-(=1.-XC 

IF ( XH6-1 .E-30)  557,557,556 
556  IF( XC-1 , £-301  558,558,559  _ 

0  55  7  X=(X-,l.S/2. 

GO  TO  560 
0553  X=X/2, 

GO  "0  560 
0559  X=XC 

560  INDEX«1  ,  _ 

1F( I 1-N)  516,516,522 
577  NCT^O 

IFiX)  121.121,122 

D  171  X=HX  - -  _ 

0  122  HX=x 

1  F  (  X - 1  . F  -  30  )  5 aO ,55Q.,^X  - 
0551  XHh=0. 

0  X  HH  = 1 . -  X  .  . 

I  F  1  Xhh- 1 . £- 30 )  553,553,552 

0  550  X  =  .0  1  . -  - - - 

GO  TO  552 

0553  X^-.99  - - 

552  GO  to f 572 ,573) » 1 NNE 

572  IF  (PA-PP)  537,536,535-  .  .  , 

573  IF<PA-PPi  535.536,537 


0  ^  ^ 

OCL  ^  .  ~X 

GO  "s  538 

0537 

OtL  =  X 

GO  5X9 

5  38 

!F(nCT-12)  540*540,546 

0540 

AriO^  ^  A55f-  C  PA-PP  ) 

P 

A30S7-:  A3DP  /pp 

IF!  A5:)P-l.L-ai  536.536. 54i  _ 

0541 

DEl-OEl/ 10. 

NCT--SC  T  *  1 

;F{  ABSF!D£Li-i*£-I4i  536.536.542 

054? 

X^HX.OEl 

0 

HXaX 

1  f  !  X  -  1  .  }  56  2  *  5-6 1  ,  56  1  _  . 

0561 

X  =  1  . 

562 

COST  ! 

1 *2 


GO  TO  S27  .  _ 

GO  TO!  574  *576)  .  INNE 

574  IFiOA-Pp!  53'?.536t542  . . 

575  JrlPA-PPl  542«536.539 

539  lFi-iCT-12}  543.543.546  .  _ _ _ _ _  _  _ 

0543  a8:>P  =  A^SE  J  PA-PF*  S 

0  A8r>D  =  ARDP/PP  -  -  -  _  .  - 

!F( ASOP~l ,E-8)  536.536.544 

0544  D£L  =  DEL/iO.  .  ,  ___ 

NCT=NCT41 

IF!  AB5Ff  D£Li>l.£~14J  536.536.545  _  .. 

D545  X*HX-0EL 

D  HX-X  .  ... _ _ 

1F!XI  563.563.564 
0563  X=0. 

564  COM  INUE 

INDEX  =  3  _ _  _  _  .  . . 

GO  TO  527 

534  GO  TO! 576.577) . INNE  ..  ... 

576  IF!PA-PPf  545.536.538 

577  IF(PA-PP)  538.536.545  _ 

0  5  3  6  A  X  =  X 

GO  TO  600  _ _ _  .  ..  - 

0546  AX=X 

PRINT  524,X12.»C.i5 

524  FORMAT (13H0  IN  ELEMENT  14.14.61M  FULL  CONVERGENCE  wAS  NOT  ATTAJ 

1.  MAY  BE  SOMEt^HAT  UN^RECISE.1 _ 

600  CONTINUE 

D  YXD=AX  _ _ _ _  _ 

D  AHH=1,-¥XD 

IF{AHH-1 .E-30)  14,14,13 _ 

]4  JF!OP-CPP)  23.21.21 

20  XQ! XA ) --. 99999999E30  _ _ 

GO  TO  57 

21  XO!XA)  99999999E3Q _  — _ _ _ _ _  _  _  _ 

GO  TO  57 

D  13  XD0*AAD*(YXD/( 1 .-rxD»  »  . . . 

0  XOD«SQRT  F  ( XDO) 
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ifiPP-CP?)  1U22.22 
M  X  3  s'  <  A  (  =  -  X  3D 
GO  ^  O  > 7 

,72  XOf<A!=;XOD  -. 

GO  ro 

52  PaiNT  51. <12.1415  .  . 

51  FORMAT (26H0  ASGuMgNT  MOT  AO«jSSi8L£  lA.lAi 

53  xa?  KA  I  ==-0  •  -  _ _  -  - 

57  continue 

RET URhi  -.  -  _ - 

END 


0 
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SUBROUT  !  NE  CH 19  «  X2  »»;  12  *IC15  ) 

dimension  Gl U *X2( U ♦Pi  I i .ORO!  1 1 
<  1 

'2  RtSUl,  f  =0.  _ _ _  . 

D  X  *^1  » 

D  r,  ?  ^  -1 .  _ 

Ci  2  -  o  I  *  A  * 

X  =  X  .  i  K  A  I 

lSi9*}99»i00 

100  :f;X}  i99i90.90.  _ _  .  _  _ 

90  :»-tx-*.£~8J  17l^l71,i0l 

171  R ! <A 1 =0.  _ 

164. 169  1 166 

16A  OSD.' <A  }  »  .99999999EB0  _ 

GO  TO  200 

169  0R0(KAS-I. _ _ _ _  .  _ 

GO  rn  ?on 

166  0fiDi<A!=0,  _ 

GO  TO  ?00 

101  !f(G2-lC00-)  l68tl70.iTQ _ 

168  1F(X-?000.}  167, 169.169 

169  PiKAt^l.  _ _ _ _ _  _ 

ORO  <  <A ) =0. 

30  TO  200  _ _ _ 

170  Yi=L0GF( X/G2 ' /3. 

YlsEXPFlYlJ  _ 

Y2si.-2,/{9.»G2 J 

YS^SQRTFl  2./ C9.#.GZiJL _ _  _ 

XXs<YI-y2)/Y3 

call  N0RM9(XX.P(IC.A1  *0R0(KA».L  _ 

GO  TO  200 

16'^  lF(G2-4.}  135.135.136 
135  Gll=G2/2.*5.£-8 

<SXINTF!G11} . .  . 

0  THETAxO. 

T HE  ta  =  G2/ 2, -FLOATFdCi 
I  Fi  THETA-i  .£-■»>  145.145. 146 

145  THETA  =  0.  ...  - 

146  continue 

0  A  =  THETA»LOGFlX)-X/^.-Ll.+THtTAl  *L.0G£X^1.-2LQG&MI1,  +  THETA} 

0  A3xA 

!F(A-.80.)  103.103.102  . 

010?  A2=EXPF!A) 

D  r3= A2 

D  ORD2=A2 

0  T2  =  0.  . 

IF(ThETA)  130.130.131 
0130  A3  =  a3-lOGF (X  ! 

GO  TO  132 

0131  .  A3xA3+LOGF ( 2 . (♦LOGFl TmETA) -LDGF IX 1 
132  IF(A3+80.)  109.109.108 

108  — IFl  A3-80  .  )  162.162.163 _ _  .  _ _ 

163  OROl =. 999999 29E 30 

GO  TO  lOA  _ 

0162  A2*EXPF(A3) 
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^  10  9 

D101 

D 

D 

D 

104 

10  5 
D 


DI0  6 


Dll? 

113 
-  114 
D 


D147 


D143 


D  144 


115 
1  16 

117 

118 

119 

133 

D134 

0  120 

D  12  1 

D  1 16 


0«0i  -  A? 

GO  TO  104 
OkO  1  *0  . 

GO  TO  104  _ _ _ _ _  .  .  _ 

13*0. 

0R02  =  0.  .  ... 

OROl =0. 

T2*0. 

I  =1 

)(  I  5  I 

XI  ♦THETA  }*LOGF(X/2.  S -UO(iFJALriyJl.”.iLka<iQM<  X  I  ♦ThETA  . 

IF!A  +  gO.}  107. 107, 106 

AZ^EXPriAj  .  _ _ _ 

OR  a  3  =  A  2 

T2  =  T2*A2  _ _ _ _ _ _ 

iio»iii*iii 

GO  TO  i05  .  .  _ _  .  .  ______  ... 

IFiTHETAl  138.138*139 

lF(X-5.3  148,148,149  _ ... _ 

1  =  1 

111*1.  . _ _ _ _ _ —  .  „  _ _ _ _ _ _ _ _ _ _ 

A  =  L.O&F  iX/2.  ^♦LOGFf  {X.>trt£TAlyJAc-+TH£.TALi  ...  .  _ 

IFIA+SO.)  113.113.112 

T  1  i«T  1  1-£XPF  ( A)  _  .  _  _  _ _ 

J»~i 

X  I  =  3  ~  ~  . .  ’  '  ’ 

J=-1*J  - 

A3=(l.*THeTA)/{Xl4THETA4l.» 

IF( A3-1 .£“8 i  143.143.147 
A  =  Xf  *L0GF { x/2. ) -ZtOGGMl XI  +  1 .) 4L0GF( A3 ) 

lF(A  +  80.»  i43.143*.i44 _ _ _ _  _  _ _ 

Ti.?*a. 

GO  TO  119  _  .  _ _  .  _  . 

T  13  =  EXPF (  A) 

C  =  FLOATF{Ji  _  .  ... 

T i2  =  SIGNF ( T  1  3  .C  1 

Tli  =  TlUT12  ... _  ...  _.  ..  _ _  _ 

.N  =  .N*  1 

IF i N-60  )  116, 11 7,117  .... 

GO  TO  114 

PRINT  n8,X16.Xl2 

FORMAT<13hO  in  element  14,14,61H  FULL  CONVERGENCE  WAS  NOT  ATTA174ED 

,  MAY  BE  SOMEWHAT  UNPRECl.SE.1 - -  ..  _ 

!F(T11!  133,133.134 

GO  TO  121  .  _ 

A  =  (  1  .  -fT  -iETA  )  *LOOF  (  X/2.  )  -*.U0GFJ  T  i  1  )-2lOGGM(  2,  tTHE  TA  ) 

IF(A,80.)  121,121,120 _ _  _  ... 

T 1 =EXPF ! A  ) 

GO  TO  122  - - - -  - - - ...  _  ... 

T  1  *0  . 

GO  TO  122  ...  _ _ _ _  .  _ _ 

A«-X /2  . 
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Q  e  o 


1 

1  ‘l  1 

D  1  ? 

..■  1  ‘^4 
C  1  ^8 

Olbl 

D160 

D15S 

D156 

0157 

0 

\22 

D123 

124 

0125 

0126 

196 

194 

195 
1  36 

172 
174 


1  =  •  • 

X I : : 

A  =  -  '  .  S  /  X  I  i  •:  tmp  T  A+  i  ,  )  *L0GF  •:  I  3.  *_X/  X  I  )~l  l0G0.*«^  : 

IF  -  A*8  .  1  50  »  150, 151 


*  Ti^t  T4  i  !  X  s  5 


GO  '■j  152 

T  i  1  :  r  X  P  ^  r  A  )  _ _  _  _ _ 

A  ?  A  ?  *  T  1  1  . .  '  . . .  ' 

IF ( i-N)  153,154,154 
B=  1 .0  1  282Q5  1  >rH£  TA  /  156.-X/ 312. 
i  F  !  .5  !  15  8.155,160 

3  -  A .  i  S  F  {  B  i 

A  =  -x/2  .  *  !  Thf  TA+1 .  )  •L0GElJL/2^itL0G£jai_-i.QGF  i  52  .  )  ~2lOGGM!  Th£TA*1.  J 
IFfA.SO.S  155,153,161 
C* -f  xPF { A  ) 

GO  f  0  15  7 

As- V  ,  rne  TA+  I  -  )*l0GF  {  X/2  .  )  ♦l.OGF  {  B  )-LOGF  {  52  •  )  -ZUOGGME  Th£T  A,-!  .  j 

[F{ A.80,  S  15  5,1  55,1  56 

GO  TO  157 
C=txPF[Al 
0  =  A2-^C 

T  1  M  1  4  —  [) 

IF(C2-2.)  123»124,124 

RESULT  ^2.  *►:  3 +-11 _ _  _ 

ORO ( <A ) =0*01 

GO  TO  196  .  . 

!F!G2-4.i  125.126,126 

RcSUlT^T  1  _  ,  .  _  .  .  ..... 

OROl  XA  )  --OROr 

GO  TO  196  _ _ _ -  _. 

results! 1-2. *T2 

ORO ( XA ) s0R03  .  ... 

IFt'RES'Jin  194,  194,195 

PtXAJ«0.  .  _ 

GO  TO  200 

P  !  <A  J  aRESULT...  ,.  _ _  . . 

GO  TO  200 

X  '  X  /  2  ,  -  _  .  ,  . 

02=G2  /  2  . 

OR0l  =  -X+ (  G2-i.  )  *LO(.-.  «  Xi -iLOGGM  (02  1  . . 

IF{ORDL»60.I  172,172,173 

ORO  I  XA  )  =0. _  _  _  . _ 

IF(X-G?+1.)  174,175,175 

P(XAJ  aO.  _  _  . 

GO  TO  200 
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f'  i  o 


:  ip:  >  : » •  . 

0 

CiJ  -  .  [  ib  ..  _ 

;  7<9  [I  ■‘‘-'j 

r>  *1  =  1!  „  __  

'j  ss-x  -» (  K ;  )  /  X : 

1 7  6  n  I  i  - 1  _ _ 

i 

nS-x*  !  X! -02  ;/fl,‘Ki_/SS}  _  _  . 

1  p  (  1  i  -  1  ;  i  ?  7  •  i  ?  ?  ♦  1 7  6 

D  i  7  ?  0  S  -  X  /  S  S  _ _  .  .  _  . 

PRC-3  -ORDA»SS 
1  .-r-  ROB 
P ( <A ) sPROB 

GO  TO  200  .  _ _ _ _ _ 

1<J9  PRIPiT  198  ,<1  12 

198  forma- {20HO  ARGUMENT  i^£QATiV£  l4,lAi 
P ' < A )  3-0  . 

ORO{  <A,'  =  -0.  .  .  _  .  . 

200  continue 

RETURN  _ _ _  _ _ 

END 
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t  { 


D  <?g 
OQ 

DIOQ 

D 

D  1  0 1 
D 

0230 

201 


S»#  feS  is 


*<  t  C  I  j  !  0  N 


I  i  <  1  J  :■  '  ,  0  0  »  9  8 

f  Ok  ■  A  ’  ;  ;  mO  ,  ,  55HNEGA?  I  V't  OR  ZERO  AROuMEM  tNCOuNTtKED  IN  LOQOM 

1  O  ■  K  I  \  ^  'i 
0  ^  7  .  i 

T  E  P  ■■‘’  =  1  .  3 

iF{X-18.)  100* I  00 ♦101 

rtR*^  -  T£i}M*A  _  „  _ _ _ 

X  =  X  +  i  . 

GO  TO  99  .  . 

ZLOGGM  =  { X-0.5 1  *l0GF (X!-X  +  l,/(12.*Xj-l,/( 360.*x**3i* I ./ i  i260.*X 

1  »*5  )  -  1  .  /  !  16  80.  *X**7  1+0.5=  *L0GF(  6 . 283  i  8  8  3Q  7  I  7998646  )  -LOGF  (TERM! 

X  =  V 

ZLOGGMsZLOGGM  .— _ _ _ _ _  , 

RETURN 

END  _  ..  _ _  _  . . . 


122 


Xl  Jl, 


«  .  . 

>  » 

■'  t  • 

?:i  X  ■*.!■  ^  ?  1  i;' 

X  A  A  S 

*■  i  3(  ' 

I  i  J 

;  ?  s.  A  - 

^  : 

10*>  »  106»  106 

106 

■  ;  =  ..// 

A  1 

.  /  .'  xA*2#/i  XA-»3,2tXA*4»/<  XA  +  5.  /  iXA»6,/  iXA*-?*/  iXA  +  S./tXA 

1  9  *  /  1  ^  * 

*  V  *  / 

(  xA+ll./C  XA+12./XA!  1  1  J  i  i  i  !  i  1  i 

!  F  !  .  ;  I  J  i 

)  ' 

T* lOStiOS 

1  u  7 

0  S  i  J  1  - 

■  Z  t 

1  J  i 

0 

1 

U 

0 

A 

1  "i@ 

^  (  I  J  T 

s 

i  * 

'J*2  f  IJ! 

GO  TO  10 

I 

n*!  -T  =  1 .4  1  ,  v-56/ u  .41A?1356+0.  327591  l*AeSF  {  Xt  !j  n  ; 

J  =  C  *  ;  {  i  LG.94Q&A6Q?»£r--l. 28782255  I  *£T*  1.2596951 -ji«£T-0. 252  I28f.A 
1 8 )  *E :  ;‘r:/836846 )  *17 

I  F  !  X  !  IJ  ;  i  102»  lQ3.»i£Li _  ..  _ 

' '  ’  o  n  j  !  -  u/2 . 

GO  TO  10  i  _  .  ,  _ 

1  - '  p { : j  j  =  i .  -  u/2 . 

iCi  RETURN _  _ _ _ _ _  _ 

FNO 
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I.  Introcla^^tSi>n 

Under  coritriLt  AF  i0(o02)  -  liO  i,  an  a<iaptive  thesaurus  sys¬ 
tem  for  inforfTialion  retrieval  i«  being  developed  (i),  Tbe  basic 

idea  of  the  system  is  to: 

i.  Index  documents  by  a  simple  auto -indexing  procedure. 

Z.  a-^resent  to  a  querist,  using  a  man-maciiLirie  system,  a  list 
of  "synonymous”  cross-references  to  use  in  formulating 
a  retrieval  question. 

3.  Use  the  cumtilated  experience  of  the  querists  to  help  create 
these  lists  of  cross-references. 

This  system  is  intended  as  one  pocsibie  approach  to  the 
problem  of  indexing  and  retrieving  documents.  There  are,  of 
course,  many  other  approaches.  At  the  present  state  of  our  knowl¬ 
edge,  however,  criteria  for  choosing  between  them  are  atiU  unform- 
uiated. 

Not  only  arc  criteria  for  choosing  a  solution  to  the  problem 
unformulated,  the  nature  of  the  problem  itself  is  in  may  cases  not 
clearly  understood.  This  paper,  therefoie,  first  attempts  to  des¬ 
cribe  the  indexing  problem  in  some  detail.  It  then  discusses, 
broadly,  possible  kinds  of  solutions  to  the  problem.  Considerable 
research  is  needed  before  it  will  be  possible  for  an  infornnation 
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'  '  4  ’Jb  t.  i  <  ^  Tl  ^ 


deigi.guer  to  a- war^-y-.A^  ^ 

The  sequel  So  this  paper  (Costa  .tnd  ruitictt*  r  is  j  dis<.us»e»  the 
system  designer’s  decisions  in  greater  detail  and  outlines  some 
experiments  needed  before  he  can  be  helped  to  specify  a  suitable 
indexing  system  for  a  given  application.  The  adaptive  thesaurus 
system  being  developed  under  this  contract  is  a  piotentiai  tool  for 
some  of  this  needed  experimentation, 

II.  General  Description  of  the  laiormation  Retrieval  Process 

The  information  retrieval  process,  in  general,  is  a  com¬ 
munication  process  which  works  as  follows;  there  is  a  set,  Df  of 
documents  or  of  items  of  information  of  some  kind.  These  doc¬ 
uments  are  to  be  labelled  (indexed)  by  an  indexer  or  librarian  (or 
possibly  by  a  machine)  by  selection  of  one  or  more  symbols  or 
terms  from  an  Indexing  code,  C.  These  terms  are  usually  some 
subset  of  English-^e.  g. ,  the  subject  headings  of  a  card  catalog. 

The  code  is  not  intended  to  represent  all  the  "information"  in  the 
document,  but  to  serve  as  a  reduced  representation  of  it--a  tag, 
or  name.  These  tags  are  then  stored  fur  an  indefinite  period  of 
time  (as  in  a  card  catalog,  or  in  a  computer).  At  some  future 
time,  a  querist  (e.g.,  library  user)  interrogates  the  system,  form 
ulating  a  search  question  by  selection  of  a  term  or  terms*  from 

*For  details  of  techniques  for  combining  words  in  a  query  (query 
"grammar"),  see  (2).  .,,0 


tfiiS  iSAfTi^  ^r-dex'.ng  vcii,.rfi  r  y .  ('’•g.*  »  it  iru  ■.irriL.j.lson  or  . 

The  t&x 'ix&  in  tht  fe«‘-src^.  questio:’  &te  then  rn^atched  ^i^sauist  the  terms 
sn  the  storage  device.  Document# • -ur  iuforniatir.n  about  them  , 

author,  etc.D-taggeu  by  these  terms  are  then  obtained  and  examined 
by  the  querist.  The  task  of  the  indexer  in  this  process  is  to  label 
a  document  so  that  it  can  be  found  by  a  querist  witliOut  excossive 
work. 

m.  What  is  the  Indexing  Problem? 

Why  is  this  indexing  process  a  problem?*  The  task  of  the 
indexer  seems  straightforward  enough:  find  out  what  a  document 
is  about  and  select,  from  the  indexing  code,  C,  the  correct  label 
or  labels  to  describe  the  contents  of  the  document.  Viewed  in  this 
way,  there  are  two  steps  to  the  process;  (1)  an  identification  step, 
in  which  the  contents  of  the  document  are  determined,  and  (2)  a 
labelling  step,  ia  which  a  label  is  applied  to  the  contents. 

Unfortunately,  although  this  is  a  common  way  of  looking  at 
the  process,  the  above  d'seription  is  very  misleading.  The  ’’con¬ 
tent"  of  a  document  should  not,  as  the  description  assumes,  be  con¬ 
sidered  as  an  entity  (or  even  as  a  collection  of  entities).  The  "con¬ 
tents"  of  a  document  are  not  "tilings"  contained  in  the  document. 


*See  Appendix  X  for  a  discussion  of  "what  i*  .ot  the  indexing 
problem" . 
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Content  ii  no  itiore  inherent  in  a  docurnent  than  meaning  is  inifierent 
in  a  word*.  The  "identification"  step  in  the  Identify -and-label  in¬ 
dexing  process  cannot  ther  be  considered  as  a  simple  process  of 
finding  something  in  a  document  which  is  there  independently  of 
the  person  looking  and  the  process  used  to  look. 

Rather  than  identification,  then,  the  task  ot  the  indexer  is 
prediction  and  selection.  Instead  of  "what  is  in  this  document,  " 
he  must  answer  the  question,  "what  might  this  document  be  wanted 
for?".  One  of  the  basic  questions  for  research  on  indexing  for  in¬ 
formation  retrieval  is:  on  what  criteria  shoudd  such  prediction  be 
based? 

Determination  of  document  content,  then,  must  be  uscr- 
oriented,  baaed  on  the  predicted  use  of  a  document.  **♦  Once  con¬ 
tent  has  been  determined,  how.ever,  there  will  stiU  be  a  problem-- 
choosing  the  correct  label  for  the  contents  identified. 

Labelling  is  a  problem  because  there  is  no  natural  one-to- 
one  correspondence  between  contents  and  terms.  One  term  can 

♦  The  analogy  "content  is  to  document  as  meaning  is  to  word"  is 
quite  suggestive  and  points  up  the  over  simplification  in  th^  "iden¬ 
tify  the  contents  o£  the  documents"  dictum. 

**A  possible  approach  to  determining  these  criteria  is  suggested 
in  the  sequel  to  this  paper  (2). 

***If  such  prediction  proves  impossible,  then  the  simplest  pos- 
sibls  Indexing  procedure  should  be  used. 
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have  eeveral  meanings  and  several  terms  can  have  the  same,  or 
nearly  the  same,  meaning.  This  fact  of  language  can  cause  failure 
to  retrieve  desired  documents  and  retrieval  of  non-desired  ones. 

So  ''choosing  the  correct  label"  must  involve  not  only  an  algorithm 
for  choosing,  but  also  specification  of  a  set  of  labels  from  which 
tc  choose.  A  second  task  for  research  in  indexing  is  the  specifica> 
tion  of  such  a  set  of  labels.  * 

In  the  next  paragraphs,  these  assertions  (1)  content  is  not 
Inherent  in  a  document  and  (2)  there  is  no  one-to-one  correepon- 
dence  between  content  and  labels,  are  elaborated.  The  significance 
for  information  retrieval  of  these  problems  is  then  indicated. 
Content  Analysis 

It  seems  intuitively  obvious  that  the  content  of  a  document 
is  not  an  absolute,  and  that  for  practical  purposes,  what-a-docu> 
ment-is -about  depends  in  part  on  the  person  reading  it.  There  Is, 
however,  some  Indirect  experimental  evidence  to  confirm  this. 
Experiments  have  been  performed  to  determine  inter -indexer  con¬ 
sistency  in  the  assignrrient  of  index  terms  to  documents.  Essen¬ 
tially,  in  these  experiments,  the  same  set  of  documents  is  pre¬ 
sented  to  different  indexers  with  instructions  to  index  them.  Index 

*Section  IV  of  this  paper  deecribes  some  labelling  systems  and  the 
sequel  to  this  paper  discusses  the  costs  involved  in  each. 
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terms  selected  by  different  indexers  for  the  same  document  are 
then  compared.  These  experiments  show  that  there  is  considerable 
lack  of  agreement  between  indexers  in  the  t^rms  chosen  {further- 
more,  the  terms  chosen  axe  not  necessarily  synonyms --which 
would  indicate  variability  in  the  labelling  process  only,  not  in  U^e 
e election -of- contents  process). 

What  is  in  a  document,  then,  depends  to  some  extent  on  the 
reader.  The  task  of  the  indexer,  however,  is  not  merely  selection, 
from  a  finite  set  of  independent  well-defined  "topics",  those  that 
a  reader  win  desire.  (The  word  "topic"  is  used  here  as  a  short 
notation  for  elament-of-content.  It  is  no  more  precise  than  the 
notion  of  content  itseli).  A  document  is  not  the  sum  total  of  a 
set  of  discrete,  identifiable  components.  It  is  not  constructed  of 
separable,  independent  units  as  a  house  is  constructed  of  bricks. 

(It  is  constructed  of  words,  true,  but  the  relation  between  word 
and  "topic"  is  far  from  clear.  ) 

To  nnake  this  concrete,  let  us  look  at  a  few  examples.  Take 
a  document  entitled,  for  example.  "Feeding  Habits  of  Cats  in  Outer 
Mongolia".  This  document,  for  different  users,  could  be  about 
such  "topics"  as  "Feeding  Habits  of  Mammals",  or  "The  Flora 
and  Fauna  of  Outer  Mongolia",  or  "Cats",  or  "Fcology",  or  "Asiatic 
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Cat*  '  or  “Predatory  Feilae*”,  or  "Pet*",  or  " Experimeatai  T«eh- 
nlqaea  u»ed  to  gather  Data  on  Feeding  Habits",  or  . .  . ,  etc. 

And  just  as  one  docunaent  can  be  "about"  nnany  topics  (whose 
relation  to  each  other  is  complex),  one  "topic"  can  be  contained  in 
many  documents.  If  a  user  wants  information  on  "Feeding  Habits 
of  Animals",  this  information  might  be  found  in  documents. on 
"Feeding  Habits  of  Cats",  or  "Cats  of  Outer  Mongolia",  or  "Dog 
Diets",  or  .  . . ,  etc. 

To  summarize  this  section,  then^  documents  are  not  divided 
into  distinct  and  identifiable  "topics",  or  units -of- contents.  For 
practical  purposes,  what  is  in  a  document  depends  (partly)  on  who 
is  to  read  it.  The  problem  of  identifying  doexunent  "contents"  is 
thus  somewhat  analogous  to  identifying  word  "meaning".  Luckily, 
in  most  information  retrieval  systems,  there  is  a  "context"  of  po¬ 
tential  users  and  uses  to  circumscribe  and  orient  such  identification. 
Labelling 

Exactly  analogous  problems  occur  with  the  words,  or  terms 
that  are  used  to  label  topics  as  oeexurred  with  the  topics  themselvss. 
Given  that  one  has  a  topic  on  which  information  is  desired,  than 
this  topic  can  be  described,  or  expressed,  by  several  terms  or 
combinations  of  terms.  And,  on  the  other  hand,  one  term  can  be 
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used  to  represe&t  m&ny  topics.  In  other  words,  just  as  content 
it  not  inherent  in  a  document,  meaning*  is  not  inherent  in  a  term. 
Furthermore,  just  as  there  is  no  one-to-one  correspondence  be¬ 
tween  topic  and  document,  there  is  no  one-to-one  correspondence 
between  topic  and  term. 

It  is  well-known  that  language  permits  a  variety  of  descrip¬ 
tions  for  the  same**  thing  or  idea.  As  an  e:aample  of  this,  a  table 
could  be  described  as  "a  thing  with  four  legs  and  a  horieontal  board 
across  them",  or  "a  piece  of  furniture  used  for  eating",  or  "a  flat 
object  supported  by  vertical  columns",  etc.  And  just  as  one  item 
can  be  described  in  many  ways,  one  description  or  label  can  stand 
for  many  different  objects  and  kinds  of  objects — eating  table,  table 
of  physical  contents,  steel  table,  wooden  table,  etc. 

Practical  Significance  of  the  Content  Analysis  and  the  Liabelling  Problems 

The  practical  significance  of  this  quite  well-known  state  of 
affairs  for  information  retrieval  is  fairly  obvious.  If  language  pro¬ 
vides  alternative  ways  of  describing  an  object  (document),  and.  If 
an  indexing  and  retrieval  procedure  is  based  on  the  necessity  of 


*By  "meaning",  we  mean  the  relationship  between  topic  and  term. 

**The  notion  of  "same",  too.  is  somewhat  £u7.zy.  When  is  one  idea 
"the  same"  as  another? 
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an  exact  match  between  the  deacriptione  of  the  object  by  two  dif¬ 
ferent  people  {indexer  and  user),  then  are  clearly  In  trouble. 
And  if,  furthermore,  a  term  or  a  statement  In  a  language  can  be 
used  to  describe  many  different  objects,  the  trouble  Is  compounded. 
(We  are  clearly  impinging  here  on  questions  which  the  relevant 
disciplines  have  not  yet  answered- -how  is  language  learned  and 
used- -by  individuals  and  by  groups- -what  is  a  concept,  how  are 
concepts  formed,  what  are  the  functions  of  ambiguity --both  syn¬ 
tactic  and  semantic --and  of  redundancy  in  language,  etc.)  The 
problem  is  compounded  still  further  in  the  case  of  describing  doc¬ 
uments  in  an  information  retrieval  system.  Here  we  are  not  Just 
trying  to  describe  a  thing,  uniquely  and  unambiguously,  (as  a  table) 
but  we  are  trying  to  describe  it  to  a  person  who  has  never  seen 
it  and  who  does  not  know  whether  it  exists. 


"Content"  then  is  not  inherent  in  a  document.  Labels  for 
content  do  not  naturally  stand  in  one-to-one  relation  to  contents. 

Indexing,  therefore,  is  a  problem  because  the  indexer  (a..d/ 
or  the  indexing  system  designer)  must  predict,  not  identify: 

1.  what  a  document  will  be  wanted  for  (the  user -defined  con¬ 
tents),  and 
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2.  how  thic  co&t«‘nt  will  be  linguistically  described  by  future 

requestors. 

Very  little  work  has  been  done  on  the  first  problem.  The 
field  of  information  retrieval  abounds  with  simple  and  complex 
algorithms  for  '’’identification  of  document  contents”  {select  all 
high  frequency  words,  select  everything  but  high  and  low  frequency 
words,  use  relative  frequency,  etc. )  but  no  valid  attempt  has  been 
made  to  test  these  algorithms  or  even  to  state  their  underlying 
assumptions.  A  possible  approach  to  exploring  this  problem  is 
suggested  in  (2). 

The  second  problem,  the  iabeiiing  of  contents,  is  discussed 
broadly  in  the  following  section  and  in  greater  detail  in  (Z). 

IV.  On  Indexing  Languages 

To  index  documents,  there  mupt  be: 

1.  A  procedure  for  predicting  the  "contents"  of  a  document. 

2.  A  "language"  in  which  to  label  such  contents  and  to  phrase 

queries. 

3.  A  procedure  for  using  the  language  in  the  labelling  and 

querying  processes. 

4.  A  search  process,  in  which  document  labels  are  matched 

to  query  labels. 
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All  i&deid&g  "languAgei"*  co&tato  tit*  Hr  at,  a»4  many  cootain 


tiia  reat  of  tha  following  componenta: 

a.  A  vocabulary,  or  aet  of  labala. 

b.  An  indeaing  “grammar*'  or  aet  of  rulea  for  combining  tbe 

labela  into  larger  labela  for  indeadng^ 

c.  A  query  “grammar",  or  aet  of  rulea  for  combining  tbe  labela 

into  larger  query  phraaea. 

d.  A  method  of  aemantic  control,  which  may  or  may  not  be 

embodied  in  the  vocabulary. 

In  addition,  there  muat  be  two  “tranalation"  proceaaea,  <me 
for  tranaforming  the  document -content  apecification  into  the  in¬ 
dexing  langtaage,  and  another  to  transform  the  query  into  the  in¬ 
dexing  langiiage. 

There  are  many  forma  of  indexing  languages,  ranging  from 
those  whose  vocabulary  is  limited  and  precisely  defined  to  those 
whoee  vocabulary  is  that  of  natural  language,  and  from  thoee  with 
almost  no  “grammar"  to  those  with  fairly  complex  apeciaiized 


’(‘Calling  an  indexing  language  a  language  may  raise  some  protests. 
The  term  is  used  here  because:  (1)  It  is  common  in  the  jargon  of 
IK,  and  (2)  the  relevance  of  linguistics  to  information  retrieval  is 
vaguely  sensed  by  the  author  and  others  but  is  still  not  explicit. 

By  the  accident  of  juxtaposition,  this  relevance  may  become  clearer. 
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grammArd  built  for  apccLfic  sciontific  fields.  Criteria  for  choosing 
between  tibteec  verioue  Inngunges  ere  as  yet  unformulaiced.  In  this 
section,  we  dlscuse.  broadly,  the  various  kinds  of  Indejdng  “Ian* 
guages”. 

Vocabulary 

The  vocabulary  is,  of  course,  simply  all  the  acceptable  index 
terms.  There  are  many  designations  for  such  a  set  of  term.s  (key* 
words,  subject  headings,  index  terms,  descriptors*',  etc. ).  The 
vocabulary  may  be  determined  a  priori  and  listed  explicitly  (as  in 
conventional  subject  beadinge,  and  descriptor  systems)  or  it  may 
consist,  potentially,  of  ail  English  words.  Sometimes  there  may 
be  a  liet  of  excluded  words  (concordances,  full  text  scanning,  auto* 
indexing  based  on  frequency-counting,  KWXC,  etc.  using  this  method 
of  vocabulary  determination)  (4),  (5).  (6).  The  vocabulary  may 
bear  little  relation  to  English  terms  (Western  Reserve's  semantic 
codec  are  an  example  of  such  an  artificially  constructed  vocabulary). 

There  are  variations,  too,  in  the  length  of  the  vocabulary 
"unit".  In  some  systems,  a  "word"  in  the  indexing  vocabulary  will 


*Tbc  term  "deecriptor"  was  created  by  Calvin  Mooers  (3)  to  indl> 
cate  an  indexing  term  plus  a  definition  of  the  term.  In  common 
usage,  however,  the  term  is  often  used  as  simply  index  term. 
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be  exactly  the  •<>  le  as  an  English  word,  determined  by  the  usual 
criterion  o/  a-stxing -of  "letters -set-off-by  blanks.  Other  systems, 
recognizing  that  the  "word"  in  English  does  not  necessarily  cor¬ 
respond  to  our  Intuitive  feeling  about  the  word  "units"  of  language, 
use  larger  English  {:hraie6  or  word  combinations,  such  as  "mechan¬ 
ical  translation",  as  a  unit  in  the  indexing  language  (P.  Baxendale 
suggests  a<^ective-noun  combinations  as  the  "units"  and  has  a  pro¬ 
gram  which  detects  them).  But  whatever  the  unit  size  and  what¬ 
ever  the  criteria  for  inclusion  or  exclusion  of  a  term  in  the  indexing 
system,  there  must,  quite  obviously,  be  a  vocabulary  of  terms  to 
choose  from.  Criteria  for  constructing  such  a  vocabulary,  how¬ 
ever,  arc  not  yet  defined  and  construction  of  present  systems  is 
necessarily  ad  hoc.  Specifying  such  criteria  is  one  of  the  most 
important  research  problems  for  information  retrieval  research. 
Granxmar 

Indexing  languages  have,  not  only  a  vocabulary,  but  a  gram- 
naar,  or  method  of  combining  terms,  as  well.  In  printed  book- 
type  indexes,  the  grammar  is  very  primitive,  indicating  only  that 
two  terms  are  related  and  what  the  direction  of  the  relationship  is. 
The  "syntactic"  devices  used  to  indicate  this  information  are  physi¬ 
cal  proximity  and  indentation --proximity  Indicating  that  two  terms 


are  related  and  indentation  that  the  indented  term  ii>  subordinate 
to  the  main  term  or  limits  it  in  some  way.  Thus  if  we  have: 
abstracting 
by  author 
consistency  of 

the  indented  terms  act  as  limiting  adjectives  modifying  the  term 
•‘abstracting’*. 

In  some  of  the  aon-conventional  indexing  systems  that  have 
now  become  quite  standard,  syntactic  devices  are  used  that  are  in 
some  sense  weaker  than  the  above.  In  the  so-called  coordinate 
indexing  systems,  documents  are  indexed  by  single  terms.  In 
queries,  terms  are  related  to  each  other  by  logical  '  ands”,  "ors", 
and  "nots"*  (e.g. ,  everything  on  mechanical  and  translation  or 
on  machine  and  translation  but  not  on  chemistry).  Ibis  grammar 
permits  one  to  indicate  merely  that  terms  are  related  but  not  the 
direction  or  nature  of  the  relationship. 


♦To  maintain  the  "language"  analogy,  only  the  "and"  operation 
should  be  considered  a  syntactic  device  (it  indicates  phrasing-- 
that  two  terms  belong  together).  The  "or"  operation  is  related 
to  the  "semantic  ‘  of  the  language  rather  than  to  its  grammar. 

(It  indicates  per .nissible  semantic  substitutions).  The  "not"  oper¬ 
ation  defines  a  context  (by  elimination). 
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Oth«r  grammatical  devices  can  and  have  been  used.  Sometimes 
there  is  an  explicit  list  of  the  kinds  of  grammatical  relations*  that  can 
hold  between  two  terms  -  e.g,,  process -thing  processed,  or  input -output, 
agent -object  acted  on,  etc.  These  relations  can  be  indicated  either  by 
defining, within  the  language,  a  separate  class  of  relational  words  (like 
verbs),  or  by  defining  a  class  of  affixes  to  be  directly  attached  to  the 
Index  terms.  Some  of  the  coordinate  indexing  systems  use  such  af¬ 
fixes  or  "roles"  (7).  These  are  analogous  to  derivational  endings  ia 
natural  languages. 

In  natural  language,  we  have  grammatical  devices  for  indicated 
sentence -hood  and/or  phrase -hood--that  certain  terms  "belong"  together. 
Some  coordinate  indexing  systems  also  have  such  a  device  to  indicate 
phrasing  -  called  a  "link."  Links  are  essentially  affixes  attached  to 
each  of  the  words  that  belong  together  (7),  Tnus,  phrasing  is  also 
indicated  in  the  "morphology"  of  the  language. 

In  systems  which  use  full  text  scanning,  grouping  or  phrasing 
exists  naturally  In  the  index  (which  is  here  the  full  text),  and  queries 
can  then  be  formulated  using  some  of  this  information,  e.g.  ,  find  all 
documents  in  which  word  "a"  occurs  in  ihe  same  sentence  as  word  "b" 


*  This  kind  of  relation  has  been  called  by  P.  H.  Smith  "the  grammar  of 
the  subject  area"  to  distinguish  It  from  the  grammar  of  a  sentence 
( subject -object  relationship). 
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Or  relative  position  can  be  used  *  e.g.  ,  find  all  documents  in  which 
word  *'a”  immediately  precedes  word  "b.”  {4) 

Our  indexing  languages  then,  do  mcorporate  some  grammatical 
devices  -  phrase  indicators,  indicators  of  the  direction  of  a  relation 
between  terms,  indicators  of  the  kind  of  relation  between  terms.  One 
of  the  problems  for  I  R  research  is  to  determine  the  effect  that  in¬ 
corporation  of  successively  “stronger**  grammar  will  have  on  the 
effectiveness  of  the  retrieval  system.* 

Semantics 

Our  indexing  languages  then,  have  a  vocabulary  and  some  gram¬ 
matical  devices.  They  also  have  devices  for  handling  the  “semantic'' 
problem  we  discussed  before  (one  term  can  have  several  meanings 
and  one  meaning  can  be  related  to  several  terms).  One  way  to  do 
so  is  to  control,  or  standardize,  the  indexing  vocabulary.  Such  con¬ 
trol  can  be  indicated,  for  example,  by  listing  a  limited  number  of  ac¬ 
ceptable  index  terms.  It  can  be  further  indicated  by  defining  the  scope 
of  the  acceptable  index  terms.  Such  definition  is  somewhat  akin  to  a 
translation -- English-to-lndexing-ianguage,  i.  e.  ,  whenever  “feline" 

♦  By  the  strength  of  a  granimar,  we  mean  merely  the  amount  of  syn¬ 
tactic  information  it  permits.  Thus,  a  grammar  in  which  one  can 
indicate  only  that  two  terms  are  related  is  weaker  than  one  which 
indicates  the  direction  of  the  relationship,  is  weaker  than  one  which 
specifies  the  kind  of  relationship,  etc. 
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occur#  in  the  title,  use  *'cat".  Another,  somewhat  looser  technique 
for  handling  the  semantic  problem  is  to  build  a  thesaurus,  or  ex¬ 
plicit  list  of  permissible  semantic  substitutions  in  the  language  (8), 
19).  Indexer  and/or  user  are  then  free  to  choose  from  these  lists. 

A  thesaurus  is  an  outgrowth  of  the  ‘'see  also'’  cross  references  in 
conventional  library  systems.  (The  ‘'see"  references  were  trans¬ 
lations  from  English  to  index  term).  The  two  methods  of  handling 
the  semantic  problem  (controlled  vocabulary  versus  thesaurus) 
can  both  be  combined  in  the  same  system,  of  course.  There  is  not 
yet  a  methodology  (or  a  set  of  rules)  either  for  standardizing  a  vo¬ 
cabulary  or  for  constructing  a  thesauri.  There  is  not  even  a  pre¬ 
cise  formulation  of  the  desirable  characteristics  of  the  end  product. 

This  is,  then,  another  problem  for  IR  research, 

V.  Relation  of  Indexing  to  Machine  Translation 

We  have  been  talking  of  indexing  "languages".  It  is  then 
quite  natural  to  talk  of  translation  between  natural  language  and 
indexing  language.  And  from  this,  in  turn,  to  suspect  a  relationship 
between  machine  translation  and  information  retrieval.  There  are 
very  significant  differences,  however.  In  machine  translation  both 
the  "source"  and  the  "target"  languages  are  known  and  the  task  is 
to  devise  a  procedure  for  translating  between  them.  In  information 
retrieval,  we  have  a  two  fold  task; 
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1/  specifying  and  designing  the  target  language,  and 

1)  translating 

Of  the  two,  the  specification  of  the  indexing  language  is  oy  far  the  more 
important  problem.  We  do  not  yet  have  sufficient  insight  to  do  so  intelli- 
gentiy. 

Another  difference  is  that  in  M.  T.  there  is  a  single  translation 
step  whereas  In  information  retrieval  there  are  two;  document-language - 
to -index- language  and  querists-ianguage-to-index-ianguage.  And  these 
two,  if  retrieval  is  to  be  effective,  must  yield  identical  results. 

It  is.  of  course,  obvious  that  indexing  also  involves  condensa¬ 
tion  of  information  (concept  formation,  in  a  sense)  and  MT  does  not. 

There  will  be  some  of  the  same  problems  (ambiguity  for  example) 
since  both  do  deal  with  language. 

For  very  much  the  same  reasons,  too  close  an  analogy  between 
the  communication  theory  model  and  the  indexing  and  retrieval  process 
could  be  misleading.  There  are  the  following  significant  differences  in 
the  two  processes: 

1)  In  the  Shannon  process,  the  encoding  and  decoding  appara¬ 
tuses  both  function  according  to  the  same  rules  -  there  is  a  one-to-one, 
reversible  transformation,  i.e.  ,  a  message  or  letter,  will  be  encoded 
at  the  transmitter  into  a  given  sequency  of  bits.  This  sequency  of  bits. 
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when  decoded  at  the  receiver,  will  ^without  the  effect  of  aoiae)  yield  the 


original  letter.  This  does  not  necessarily  occur  in  our  Information  Re¬ 
trieval  process.  There,  the  encoder,  to  index  a  document,  will  select 
each  symbol  from  a  subgroujJ^of  symbols  within  the  larger  set  of  s>nn- 
bols  (i.  e.  ,  if  the  document  is  on  ^’cats,  "  he  might  encode  it  with  any  of 
the  semantic  substitutes  of  cats:  ’’mammals.”  “tabbyeats,  ”  "feline*,” 
etc.).  T  e  decoder  will  then  select  from  this  same  subset  of  symbols 
but  may  not  make  the  same  choice.  Fundamentally,  instead  of  a  coding 
and  decoding  process,  we  have  two  encoding  processes  which,  while 
similar,  may  not  be  identical. 

Z)  in  the  Shannon  process,  the  source  of  error  (noise)  is 
either  in  the  physical  characteristics  of  the  transmission  channel  or 
in  the  encoding  process.  In  the  IR  situation,  however,  the  source  of 
error  is  the  code  itself  (the  redundancy  and  ambiguity  of  the  language).** 

VI  Motivation  for  an  Adaptive  Thesaurus  System 

The  motivation  for  an  adaptive  thesaurus  system  as  a  possible 
solution  to  the  indexing  problem  has  been  explained  in  earlier  papers 
(impossibility  of  determining,  a  priori,  all  interrelated  "synonym" 

*  The  subgroups  are  not  necessarily  discrete  and  distinguishable. 

**  There  may,  however,  be  analogous  concepts  although  the  models 
are  different.  V/e  need,  for  example,  a  notion  of  the  redundancy 
of  a  language, defined  in  terms  of  the  number  of  terms  and  the  num¬ 
ber  of  permissible  semantic  substitutions  for  each  term  in  the 
Unguage.  I45 


pairs,  avoidance  of  relndexing  when  user  vocabulary  changes,  potential 
for  adaptive  reorganization  to  improve  system  performance,  etc.). 

More  Important  than  these,  however  is  the  potential  of  a  device 
of  this  nature  as  a  learning  tool.  Hopefully,  this  paper  has  indicated 
(in  very  broad  outline)  the  nature  of  what  we  want  to  learn  about  indexing. 
The  adaptive  thesaurus  can  be  a  tool  to  obtain  some  of  the  desired  infor¬ 
mation  . 

Vll  Concluding  Remarks 

The  field  of  Information  Retrieval  is  still  trying  to  define  Itself, 
Problems  are  often  ill -formulated  and  ill -chosen.  Complex  solutions 
to  problems  are  often  suggested  -  and  worse,  implemented  -  before 
the  nature  of  the  problem  is  understood.  In  the  area  of  indexing,  which 
is  central  to  IR,  considerable  work  is  being  done  to  devise  specific 
systems  for  given  applications  (real  or  experimental).  (In  issue  1 1  of  Cur¬ 
rent  R4cO  in  Scientific  Documentation  (10),  one  out  of  every  9  projects  in 
IR  claimed  to  be  working  on  thesauri,  alone)  -  but  little  of  it  attempts  a 
clear  formulation  of  the  problems  r  generalization  of  the  potential  kinds  of 
solutions.  The  intent  of  tnls  work  is,  therefore,  to  indicate  (to  the  extent 
the  author  understands  it)  1)  what  the  indexing  problem  is  2)  what  we 
need  to  know  to  choose  between  various  possible  solutions  3)  how  to 
obtain  the  desired  data. 
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Appandiic;  What  not  tha  indexing  problem? 


Considerable  effort  is  being  spent  on  indexing,  particularly  on 
auto>ind«xing,  which  seems  inappropriate  to  the  problem  «.nd  dispro¬ 
portionate  to  the  result#  which  can  be  obtained.  Much  of  it  is  obscure, 
the  proposed  solutions  are  ad  hoc  and  without  either  Intuitive  appeal  or 
rational  basis  (to  the  author,  at  any  rale),  the  assumptians  are  unstated. 
The  problems  discussed  below  may  very  well  be  problems,  but  they  are 
not  central  problems,  and  proposed  solutions  are  often  inconsistent  with 
the  problems  as  stated. 

_ The  time  lag,  or  volume  of  information  problem. 

(People  can't  keep  up  with  indexing  and  there  is  a  consequent 
delay  in  getting  documents  indexed.)  Proponents  of  auto- indexing  justified 
on  this  basis,  often  claim  "what  people  are  doing  is  good  enough.  We  just 
want  to  do  it  f;ii.rer."  Without  questioning  the  criteria  for  "good  enough" 
(usually  unstated),  let  us  look  at  what  is  being  done  to  meet  this  problem. 
The  first  thing  we  notice  is  that  auto-indexing  is  not  as  a  rule  trying  to 
duplicate  conventional  techniques  and  results.  Such  duplication  would 
involve,  for  example,  taking  a  pre-existing  catalog  or  Indexing  system 
(e.  g.  .  Dewey  Decimal)  and  looking  for  terms,  in  documents,  which  would 
uniquely  indicate  that  a  document  belongs  in  a  given  category.  (Some  work 
is  in  progress  along  these  lines  but  much  of  the  effort  in  auto-indexing 
is  based  on  variants  of  frequency  counting  procedures.)  The  sectmd  thing 
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we  noticed  ie  that  much  oi  the  work  that  human  indexers  do  now  is 
cieariy  mechanizable,  very  simply,  and  that  most  of  the  methods 
advocated  by  auto-indexers  seem  much  too  strong  for  the  desired 
goal.  Jllxpertments  have  shown,  for  example,  Umt  a  large  percentage 
(c.  60%)  of  index  terms  are  contained  in  titles  of  documents  U), 
another  20%-25%  are  near  synonyms.  If  this  is  true,  then  a  simple 
concordance  program,  augmented  with  a  small  thesaurus,  or  per¬ 
haps  a  program  like  P,  Baxendale's  adjective -noun  extraction  routine, 
would  suffice.  Auto-indexing  based  on  complicated  statistical  mani- 
jmlations  of  full  text  is  too  strong  a  tool  to  use  (even  if  it  works). 

If  atmply  speeding  up  indexing  is  the  goal,  rather  than  improvement 
of  indexing,  then  existing  simple  techniques  should  be  used.  If  this 
is  the  only  goal,  effort  should  be  expended  on  input  preparation, 
search  problems,  etc.,  rather  than  on  indexing  problems. 

2,  Inconsistency  of  htiman  indexers 

This  reason  is  often  given  as  an  advantage  of  auto- indexing  and 
is  certainly  part  of  the  problem.  However,  this  inconsistency  of 
htuxvan  indexers  is  a  symptom  of  the  disease,  not  the  disease  itself. 
Indexers  disagree  because  what  is  in  a  document  depends  on  who  is 
reading  it.  Assuring  agreement  between  indexers  would  not  neces¬ 
sarily  assure  agreement  between  indexer  and  user.  Indexer  con¬ 
sistency  has  been  achieved  before  in  very  simple  ways.  For 
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example,  in  "the  Index  of  ChrietUn  Art**,  we  *'ead  j 

Is  order  to  maintain  the  rigid  etandards  of  unllormity  and 
coneistency,  . . .  the  index  staff  has  been  limited  to  a  few. 

There  is  no  guarantee,  however,  that  consUteacy  of  indexers 
achieved  la  this  way,  or  achieved  by  using  a  machine  to  index  doc¬ 
uments.  will  have  any  effect  whatsoever  on  indexer-user  inconsis¬ 
tency — which  is  really  our  problem,  {e.  g.  „  a  machine  might  mdex 
a  document  quite  consistently,  by  the  word  "fission"  whenever  this 
word  occurred  in  the  document.  However,  the  user  who  wanted 
documents  on  "nuclear  energy**  or  ''atomic  energy"  would  not  find  it), 
3.  Indexing  depth 

By  "indexing  depth",  we  mean  the  number  of  different  terms 
(corresponding  to  different  "topics")  assigned  to  a  document.  One 
of  the  arguments  for  auto-indexing  usually  states:  "indexers  don't 
have  the  time  to  read  a  document  completely  and  index  it  throughly. 

A  machine  could  read  (t)  the  whole  text  and  index  as  deeply  desired". 
.Unfortunately,  however,  the  "deepest"  indexing  possible,  (fuU  text 
searching)  has  already  been  tried,  eiqperimentally,  with  far  from 
extraordinary  results  (5).  Auto-indexing  schemes  are  usually  selec¬ 
tion  systems --they  select,  from  all  the  words  in  a  text,  some  sub¬ 
set  to  serve  as  index  terms.  It  seems  obvious  that  if  aU  the  words 
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lu  ft  £«x3t  will  oxily  giirft  a  csrtftin  level  &£  retrieval,  a  smaller  num¬ 
ber  oi  term*  selected  from  the  test!  wlU  not  improve  matters* 
Selection  criteria  may  be  needed  because  oi  storage  limitations* 

II  selection  is  necessary,  however,  then  rational  formulation  ol 
selection  criteria  is  re^iuired.  This  is  yet  to  be  done* 
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I  Introduction 


Information  Retrieval  i»  being  viewed  increaemgly  as  a  sys¬ 
tem  design  activity.  2t  is  not.,  however,  as  generally  accepted  that 
the  development  o£  the  indexing  language**  for  these  IH  systems  must 
also  be  a  systems  design  activity,  incorporating  the  attitudes, 

approaches  and  procedures  used  for  the  development  and  selection 
qI  hardware  and  of  programs. 

In  this  paper,  therefore,  some  of  the  costs  related  to  indexing 
smd  some  of  the  "parameters'*  of  indexing  languages  are  Isolated. 
Qualitatively,  the  language  parameters  are  then  related  to  the  costs. 
This  qualitative  discussion  should  be  followed  by  precise  formulation 
and  by  experimentation  to  replace  the  qualitative  information  with  at 
least,  gross  indications  of  the  quantitative  data  involved. 

Some  of  this  needed  experimentation  is  then  outlir.ed.  (One 
of  the  experiments  has  recently  been  inltiatv'td) .  An  adaptive  thesaurus 
system,  discussed  previously,  (1 )  may  serve  as  a  tool  to  obtain  some 
of  the  desired  data. 

This  paper  is  in  no  sense  definitive,  it  is  intended  merely 
to  indicate:  what  we  need  to  learn,  why  we  want  to  learn  it  and  to  some 
extent,  how  we  might  begin  to  do  so. 

*  For  a  general  discussion  of  the  indexing  problem  and  of  Indexing 

languages,  see  (2). 
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Sy«tem  "co«£«"  related  to  Indeadaij  catt*  for  cooveale&co,  l>« 
divl-dcd.  istto  three  major  eubcoctc: 

K  Retrieval  oocts,  C 

r 

OjpNirattag  coete, 

3.  Dealgo  co»tm, 

The  retrieval  coat*  C^,  would  be  tiae  ••coat"  of  poor  retrieval, 
measured  as  a  function  of  "miaa*'  and  "traab"  aa  exj>lained  belowe. 

To  evaluate  an  indexing  ayatem,  or  to  compare  different  aye- 
tema,  we  would  define  a  total  coat  aa  aome  weighted  function  of  these 
aubcosta.  (e.  g. ,  =  aC^  +  bC^  e  cC^). 

Retrieval  Coats 

Teats  and  evaluations  of  indexing  systems  (3)(4}  usually  con> 

slat  of; 

1.  A  set  of  documents. 

2.  A  set  of  questions. 

3.  A  procedure  for  finding,  for  each  question,  a  subset  of  the 
document  collection  which  is  "relevant"**  to  the  query. 


♦  Clearly  a  more  positiv'’  view  could  be  taken:  measure  retrieval 
effectiveness,  l.e.  ,  now  well  rather  than  how  badly  the  system  func¬ 
tions.  The  choice,  however,  is  immaterial  (except  from  a  psychologi¬ 
cal  standpoint)  since  one  can  easily  be  transformed  into  the  other. 

**  The  question  of  what  constitutes  "relevance"  is  an  unresolved  problem. 
For  a  discussion  of  the  problem  and  a  suggesti^  for  circumventing  it, 
see  Section  V,  p.  18. 
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Thi»  cata  b«  i  tertn*  of  figuxe  1,  bolow^  whore: 

A  «  Total  number  of  documents  in  the  eyatem  that  would  be  judged 
rdeva]^  to  a  ^uery 

B  »  Total  number  of  ducumenta  retrieved  by  a  query 
C  »  Total  number  of  documents  both  retrieved  by  a  query  and 
judged  relevant  to  it.  (C  »  A  O  B) 

O  «  Total  document  collection. 


Fig.  2 

Various  definitions  of  retrieval  effectiveness  are  employed  by 
different  investigator s»  most  of  which  can  be  viewed  as  some  function 
of  the  above  quantities,  and  transformed  into  each  other  for  comparison 
if  desired. 

Thus  Cleverdon  (3)  and  Kochen  (5)t  ,who  use  the  same 
functions  but  widi  a  different  terminology  .  talk  of  "hit  rate"  (h), 
(Cleverdon*s  "recall")  and  acceptance  rate  (a),  (Clcvexdon*s  "rele- 
vaiice")  where: 

h  «  retrieved  and  relevant  ^  C 
relevant  A 
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A  » 


retrieved  an4  relevant 
retrieved 


C 

B 


Sweneos  edde  e  degree  of  relevance  and  definec  a  retrieval  score 
•  S  >  which  combines  the  variables  into  a  single  quantity,  (S  >  R-pl). 
Here  is  **the  e^un  of  the  relevance  weight*  of  the  retrieved  doc- 
umeztt*  divided  by  the  total  sum  the  relevance  weight*  (tor  a  given 
question)  of  all  documents  is  the  library;  I  ie  the  effective  amount 
of  irrelevant  material  (and  le  given  by  N-U^  where  N  represent# 
the  total  number  of  documents  retrieved  and  L>  represent#  che  total 
niunber  of  documents  in  the  library);  and  p  is  the  irrelevance  penalty 
and  may  take  on  arbitrarily  assigned  values”!  4  ).  In  terms  of  the 
diagram,  we  have,  using  the  square  brackets  to  denote  the  weighted 
relevance  figures): 


S  =  R'  Id  »  R-p{N-LR)  * 


-P(B.d[£] 


) 


Western  Reserve  defines: 

number  of  documents  found 


effectiveness 


number  in  collection 


B 

D 


and 


number  of  relevant  documents  A 

prec  Sion  number  found  B 

Clearly,  other  functions  of  these  variables  arc  feasible  and 

and  it  ie  not  our  purpose  to  discuss  them  here.  We  prefer*  to  work 


*ThiB  preference  le  based  on  the  ease  with  which  some  of  our  in> 
dejdng  language  parameters  can  be  related  to  these  costs. 
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witii.  T  auad  ^ere: 

T  •  B-C 

*ii4 

M  «  A.C 

T,  o^wfowily,  im  to^  Biiuaab*r  documttat*  £etri«Yed  »Bti 

aol  relevant  {th«  “trmmh”}  m!i4,  M,  is  Hite  total  docam«Ms 

r«Wvaat  bat  iu»t  ratoUnrad  **aGd««'*)  «  Bx^essing,  fmr  examiitoc 

Kocli*ik*s  «4|aaHoBS  la  terms  of  kC  and  T,  we  have: 

^  A4M  C  or  T^B 

h  — —  OI  — 

A4M  C  or  T4B 

•  ““B^  WC  ~ 

The  **coets"  of  poor  retriewhl,  toen*  ere  *^treeh"  end  "miee**. 
Operetfeg  coete{C^) 

These  ere:  fieta  preperetion  costs  (indexing  costs)  c^uery  pre- 
peretion  costs,  searching  and  matching  costs,  storage  costs,  etc. 
and  are  fairly  straightforward.  {''Trash.  "  considered  nere  as  a  re* 
trieval  cost,  could  also  be  considered  as  an  operating  cost.  As  such, 
it  would  be  related  to  the  human  waste  time  to  eliminate  undesirable 
material.  With  the  arbitrariness  of  all  classifiers,  however,  we  pre¬ 
fer  It  bk  the  above  category.) 

Design  costs  (C^) 

The  cost  of  designing  a  language  system  is  largely  unknown, 
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particularly  the  procedure  \m  stiU  ujsapaciJRed^  WewUl  cotafiaa 

oureelvee  to  two  value*,  C  .•»  O  and  C^d)  >  O  in  t^c  diacutai^i. 

a 

HI  Indexing  Syatem  Parameter* 

An  indexing  system  consists  of: 

1.  An  indenting  language 
2*  An  indexing  and  retrieval  procedure 
3,  An  environment,  consisting  of  a  document  poi»alation 
and  a  user  population 

In  tke  next  sections,  some  of  the  "parameters**  of  these  sub¬ 
systems  are  listed,  and  in  the  following  sections,  they  are  related 
to  the  retHeval,  operating  and  design  costs  discussed  above. 

The  Indexing  Languages. 

The  components  of  the  language  are  the  vocabulary  and  the 
grammar.  To  these,  we  add  the  mechanism  for  semantic  control, 
which  may  or  may  not  be  implicit  in  the  vocabulary. 


To  differentiate  one  kind  of  indexing  vocabulary  from  anodier, 
we  distinguish; 


^Preparation  of  the  Engineers  Joint  Council  thesaurus  took, ^18 
months  of  professional  work. 


159 


I.  The  numb«r  of  term*  in  the  vocabulary. 

2«  The  eiae  <«f  the  vocabulary  "unit?'  (word,  |:^ra«e.  etc. ), 

3.  The  eatent  to  which  vocabulary  is  standardised  or  controlled 

(t.  e.  •  does  not  correspond  to  natural  language  vocabulary) 

Grammar 

A  "grammar",  for  an  indexing  language,  will  consist  of  a  set 
of  categories,  together  with  a  set  of  rules  for  combining  terms  in 
these  categories  for  use  in  an  indexing  label  and  in  a  query  phrase. 

For  imrpoees  of  comparing  indexing  languages,  we  can  use  the  num¬ 
ber  of  grammatical  categories  in  the  language.  Thus  a  grammar 
with  only  one  category  will  be  "weaker"  than  one  with  two,  etc. 

A  coordinate  indexing  system,  then,  has  the  weakest  kind  of 
grammar  because  there  is  only  one  category.  Any  term  can  be  com¬ 
bined  with  any  other,  using  the  "and"  operation.  In  these  coordinate 
indexing  systems,  the  only  grammatical  information  incorporated 
is  the  information  that  terms  can  be  related  to  each  other  (co-occur 
in  an  indexing  label  and/or  in  query  statement).  A  slightly  stronger 
"grasomar"  would  be  one  in  which  there  are  two  categories,  a  main- 
term  category  and  a  dependent-term  category,  for  example.  Such 
a  grmomar  would  permit  the  user  to  Indicate,  not  only  that  two  terms 
are  related,  but  also  the  direction  of  the  relationship  ("a"  modifies 
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’’b, '*  or  *  depend*  on  b.  etc.).  Still  stronger  •'graunmer*"  would 
list,  **pUcitly,  the  nature  oi  the  relationships  between  terms  (e.  g. » 
processor  >thing  processed*  or  input -output,  etc.}. 

Semantics 

The  semantic  problem*  a*  discussed  tn  (  2  )  can  be  handled  by 
"controlling"  vocabulary*  by  a  thesaurus  (a  set  of  "syntmyms*"  or 
semantic  substitutes)  or  by  some  combination  of  controlled  vocalmlary 
and  thesaurus. 

Procedurca 

The  procedures  are  the  methods  of  using  the  "language"  to 
index  and  retrieve  documents.  The  distinguishing  characteriitics  of 
different  systems  will  be  both  quantitative  and  methodological--!,  e. , 
how  many  words  should  be  chosen  and  what  procedure  should  be 
used  for  choosing  them.  The  quantitative  distinctions  apply  at  two 
steps  in  the  indexing  .  nd  retrieval  procedure,  so  we  will  be  interested 
in: 

1.  Indexing  depth--the  number  of  terms  selected  from  a  vocab¬ 

ulary  to  index  a  document*  and 

2.  Query  depth--the  number  of  terms  used  to  iiormulate  a 

query. 

Some  of  the  methodological  distinctions  are: 

1.  The  section(s)  of  the  text  used  for  eelectitMo  of  index  terms 

(title,  abstract,  conclusion,  full  text) 

2.  The  agent  (human  or  machine) 
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1.  metho4  u««ii  to  aoloct  term*  »s*Xy«Ui»  £r*4|««cicy 

couata*  human  ju4g«mant) 

Tha  IndaMng  Enytymsutnant 

The  environmant  conaiata  of  a  doaumant  pop>alat{&a  and  a  uaar 
Wa  are  ccncartiad  cmly  with  the  linguiattc  charaetax^iatica 
of  ihaaa  popalationa<t. 

Document  populationa  ara  charactarizabia  by  rank -frequency  dia- 
triimtiona,  iypa -token  ratioa  and  other  vocabulary  diaper aion  meaaurea. 
Theaa  cbaractariatica  are  baaed  on  the  vocabulary  of  the  document  texta. 

Uaer  populatlona  w<Mild  be  characterized  by  very  much  the  aame 
parametera.  but  now  the  "text"  would  be  the  queatlona  put  to  the  ayatem 
by  the>uaara» 

No  work  haa  yet.  to  the  knowledge  of  the  author,  been  done  to 
cbaractarisa  thia  “query  language"  of  the  uaer  population.  Do  different 
uaera,  for  di^erent  uaera,  for  example;,  aak  for  the  information  in  the 


oWe  are  intereated  in  characterising  these  populations  for  two  reasons: 

(1)  Generalisation  of  results  of  (future)  experiments  (1.  e.,  in  order 
to  apply  results  of  a  teat  on  one  population  to  another  population,  we 
need  some  basis  for  the  judgment  dtat  one  population  is  "like"  the  other). 

(2)  Different  uaer  and  document  populations  will  probably  require  dif¬ 
ferent  kinds  of  indexing  "languages",  and  with  cost  in  mind,  we  will 
want  to  know,  what  klnd.t 
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cajtn«  way,  e.g.  ,  doea  one  uaer  atk  for  ••cat»"  and  another  for  "feilnea?” 

In  other  words,  la  the  user  inapulation  Ilngaietically  homogeneoua  or  heter¬ 
ogeneous?’*' 

The  interactions  of  document  language,  user  language,  and  index¬ 
ing  "language"  should  not  be  forgotten,  i.  c, ,  relation  between  index  term 
frequency  and  query  term  frequency,  number  of  (user  -defined)  synonyms 
per  term,  number  of  homographs  per  term,  (in  both  user  and  document 
vocabularies)  frequency  distributions  of  synonyms  and  of  homographs, 
relation  between  frequency  of  a  term  and  a  number  of  synonyms  it  has,  etc. 

IV.  Effect  of  Indexing  parameters  on  costs 

For  each  decision  an  indexing  system  designer  will  make,  he 
should  know,  what  will  it  buy  and  what  will  it  cost?  Some  of  these  de¬ 
cisions  are  qualitatively  discussed  below.  Obviously,  such  qualitative 
discussion  is  meaningless  if  not  followed  by  precise  data. 

Language 

Decision  1.  What  should  the  word  units  of  the  language  be. 

Definition  of  a  word  is  one  of  the  more  persistent  linguistic 
problems.  In  an  artificial  indexing  "language, "  the  problem  has  a 


Document  and  user  populations  have  often  been,  loosely,  described  as 
heterogeneous  or  homogeneous.  These  terms  are  too  weak  to  be  useful  . 

At  very  least,  the  populations  should  be  defined  as  homogeneous  or  hetero¬ 
geneous  with  respect  to  some  characteristic.  For  example,  user  f^roups 
can  be  homogeneous  with  respect  to;  1)  the  information  desired  (John  Jones 
and  everything  about  him)  2)  the  classes  of  information  desired  (man  number, 
salary.  .  .)  3)  the  nature  of  the  output  desired  (data,  ideas,  techniques.  .  .) 

4)  the  linguistic  representation  of  the  information  (or  classes  of  information) 
desired  5)  educational  level,  professional  status,  etc. 
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dlgnilicance.  The  eimplest  definition,  from  the  point  of  view 
of  m&chisc  idootificoticn  of  word  unite,  is  **a  word  is  a  string  of  letters 
sot  otf  hy  UUukks. '*  However,  there  ere  Larger  "units"  which  function 
effectively  es  single  terms  {e.g, ,  mechenicel  translation,  command  and 
control,  ^^retitms  research}.  The  problem  facing  an  indexing  language 
designer  is:  should  these  be  considered  as  units  or  not? 

Th«Ptrade*offs“  ccmditioning  this  decision  are:miss,  trash,  storage 
S|iece,  eeerch  time,  and  data  preparatlcm  coets.  For  example,  if  "me-^ 
ehenical  translation"  is  not  considered  as  a  single  unit,  queries  for 
"mechanical  translation"  may  result  in  tO'-called  "false  drops,  "  or 
Urasii^  (documents  on  "translaticm  of  mechanical  energy"  may  be  retrieved) . 
Xf  "mechanical  translation"  is  considered  as  a  unit,  but  only  as  a  single 
unit,  the  proidem  of  "trash"  does  not  arise,  but  there  is  now  a  possibility 
of  "miss.  "  (The  term  will  be  store  !  in  an  index,  in  some  order -probably 
al|dtabetlcal -according  to  one  criterion  only.  Suppose  it  is  stored  under 
M.  Then  requests  for  information  on 'translation,"  either  human  or  machine, 
will  not  retrieve  it.)^  If  "mechanical  translation"  is  considered  both  as 
a  single  unit  and  as  two  separate  units,  the  problems  of  miss  and  trash 
are  eliminated,  but  now  storage  (and  possibly  search  time)  are  increased. 
(C3ne  document  is  indexed  in  three  places). 

*  Other  devices  can  be  used  to  prevent  this  problem,  but  all  involve 
"processing  work,"  so  the  cost  of  handling  this  problem  Is  either 
^"trash"  or  "work. " 

There  is  an  alternative  to  "miss"  here,  i.  e. ,  read  the  entire  file. 

So  our  cost  is  sithsr  "miss."  or  sxtra  "work. 
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addttkm,  if  the  term*  are  to  be  cmisidered  a  *’unlt''  iii  ^ome 
system,  there  are  additicmal  *'costs"  associated  with  designing  the 
system  (deciding  what  combinations  of  terms  to  consider  units)  and 
with  processing  (identifying  these  units  in  a  text)). 

At  least  gross  quantitative  estimates  are  needed  to  replace 
this  purely  qualitative  discussion. 

Decision  Z,  How  many  terms  should  the  indexing  vocabulary 
contain. 

Criteria  for  determining  the  desirable  size  of  an  indexing  vo¬ 
cabulary  are  still  not  formulated.  Assertions  and  injunctions  to 
document -alists  are  sometimes  made  for  or  against  a  small  vocabulary - 
but  these  injunctions  are  seldom  supported -even  on  an  intuitive  basis. 
While  the  issue*  are  far  from  clear  (to  the  author)  the  problem  requires 
formulation  and  is  consequently  discussed. 

The  purpose  of  designing  an  indexing  language  with  a  small 
number  of  term*  is  the  control  of  the  problem  of  "synonymy.”  Suppose 
an  indexing  language  has  two  terms  "a"  and  "b"  which  are  interchangeable, 
or  "synonymous."  Thus  an  indexer,  to  label  a  document,  might  select 
"a,  "  while  a  querist,  who  might  have  desired  the  document  if  found, 
might  select  "b. "  Thus  the  user  would  "mi.ss"  the  document.  In  gen¬ 
eral,  however,  we  are  not  restricted  to  only  one  document  and  only  one 
pair  of  terms.  For  each  term  in  the  vocabulary,  there  could  be  a  set 
of  "synonymous"  terms.  Thus  for  a  given  question,  a  user  would  "miss" 
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»il  document*  indexed  under  eech  of  the  eynonyme  he  did  not  pick,  end 

the  atntount  oX  nie  miee  would  be  the  eum  of  the  frequenciee  (number  of 

document*)  per  noa^selceted  e^onym.  To  avoid  thi*  ^’miae,  an  mdea 

language  designer  could  create  a  eingle  jex  term  which  would  replace 

all  oi  the  terme  in  a  set  of  sytumyxns  by  cm#  term.  Since  there  would 

be  only  vme  b^rm  to  choose,  there  could  then  be  no  problem  of 

caused  by  synonym*.  If  this  many>to»ane  mapping  (English  terms  to 

controlled  index  term)  were  performed  for  the  entire  vocabulary  there 

wo«Ud  be  a  decrease  in  the  total  amount  of  miss  for  the  system.  Thus, 

at  least  on  intuitive  grounds,  it  is  clear  that  the  sraaller  the  indexing 

vocabulary,  the  smaller  the  chance  of  '"miss." 

However,  although  miss  would  decrease,  **t rash”  would  increase. 

The  above  procedure  would  be  desirable  if  ther*;  were  sets  of  true 
synonyms  >  with  each  term  in  a  set  replaceable  by  all  others  >  for  all 
contexts.  This  is  unfortunately  not  tr'ue.  So  if,  for  example,  we  sub¬ 
stitute  for  English  word  a  and  English  word  b,  the  index  term  c,  we  are 
decreasing  the  power  of  the  language  to  nnake  distinctions.  If  a  given 
user  wants  information  on  a,  but  not  on  b,  he  must  invariably  receive 

b  as  well.  For  him,  all  documents  indexed  under  b  will  be  trash. 

Thus,  as  the  sire  of  the  vocabulary  decreases,  we  can  expect 

miss  to  decrease  but  trash  to  increase. 

There  are  otner  effects  of  vocabulary  size  as  well.  A  decrease 

in  the  number  of  terms  in  the  system  would  result  in  a  slight  saving  of 
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of  storage  space.  (If  number  of  term*  in  the  original  &*gll«h 

vocabulary,  ia  the  emailcr  controlled  one,  and  D  Is  the  total  number 
of  document*  indexed  In  the  eystem,  the  difference  in  storage  wwtld  be 

the  assce  to  store  words.  D  would  require  the  same  amtnmt  of 

*  »  c 

storage  but  wcntld  be  distributed  differently  amont  the  N  words.)  Human 
reading  time  to  scan  the  output  and  machine  read-out  time  would  of 
course  be  greater,  the  smsdler  the  vocabulary,  because  there  would  be 
more  documents  per  term. 

Once  again,  how  much? 

Decistor.  3.  How  should  the  semantic  problem  be  handled  - 
should  it  be  ignored,  should  a  controlled  vocabulary  be  developed  or 
should  a  thesaurus  be  used. 

The  main  issue  here  is;  to  what  extent  do  the  users  agree  in 
the  linguistic  representation  of  what  they  want  (i.e.  ,  to  what  extent  is 
the  user  po{mlation  linguistically  homogeneous).  If  there  Is  considerable 
agreement,  there  is  not  much  of  a  problem  and  it  can  be  ignored.  ("Con¬ 
siderable"  is  an  arbitrary  notion  and  would  need  specifying^  if  there  is 
very  little  agreement,  then  nothing  much  can  be  done.  In  the  wide  range 
of  "some"  agreement,  the  choice  is  between  a  controlled  vocabulary  and 
a  thesaurus. 

A  controlled,  standardised  vocabulary  can  cause  "trash,"  as  dis¬ 
cussed  above.  It  also  requires  work  -  construction  of  the  controlled 
vocabulary.  Costs  of  data  preparation  (indexing)  are  increased  (With  an 

e  i>r» 
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uncontrolled  vocabulary  there  i*  merely  a  selection  process  to  choose 
the  desired  term.  With  a  controlled  vocabulary,  tm  the  other  band,  one 
nmmt  first  select  an  Ihigiish  term,  then  translate  it  into  the  standarized 
index  termj . 

A  theeaurus,  however,  causes  extra  work  during  the  search  pro¬ 
cess.  (Sxtra  human  time  to  select  the  additional  terms  and  to  formulate 
an  enlarged  query,  extra  machine  time  to  access  each  individual  term, 
read  document  numbers  into  an  intermediate  store,  intersect  the  lists 
of  documents  to  eliminate  duplication,  etc.) 

Decision  4:  How  "strong"  a  grammar  should  be  incorporate;.^  int«> 
the  language. 

The  "strength"  of  an  information  retrieval  grammar  was  defined 
in  terms  of  the  number  of  grammatical  categories  it  contained.  Thus  the 
simple  coordinate  indexing  system,  which  did  not  assign  terms  to  dif¬ 
ferent  gramnoaticai  categories  was  the  weakest  (bne  category) . 

Det  us  take  the  "roles"  sometimes  included  in  coordinate  indexing 
systems  as  an  example  of  the  categories  (e.g.  ,  input,  output,  thing  pro¬ 
cessed,  catalyst,  etc.).  If  we  do  not  indicate  these  categories  then  it 
is  conceivable  that  a  querist  wanting  a  document  on  substance  a  as  input 
might  be  given  a  document  in  which  substance  a  was  output.  For  him, 
the  system  w>uld  create  "trash." 

However,  if  wc  build  a  system  with  roles  indicated,  the  rceult 

may  bs  "miss."  For  example,  a  document  might  be  indexed  as  per- 
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taining  to  subitautice  »  *  Cfttailyst.  Now  a  aaor  might  want  all  do€tt« 

monta  in  which  aubaianco  a  waa  input.  A  catalyat  la,  in  a  aanae  input. 

But  U  tha  indener  uaed  tha  **role"  cataiyat  and  tha  4)ttariat  uaad  "input.  * 
tha  raault  would  ba  "miaa, " 

It  ia  clear  that  wa  are  onca  again  faced  with  a  problem  of  "ay&> 
onyma"  >  aynonymoua  catagoriea  or  rolea  rather  than  aynonymoua  tarma. 
Aa  the  number  of  catagoriea  increasea,  tha  ayatem  permita  finer  dia- 
tinctiona.  However,  the  chance  of  indexer  and  user  making  different 
choices  from  the  list  of  categories  will  increase  and  so  will  the  chance 
of  "miss."  But  with  a  amaller  number  of  categories,  there  is  a 
greater  chance  of  "trai>n."  So  as  the  number  of  categories  increases 
miss  will  miss  will  increase  and  trash  decrease. 

Of  course,  one  could  also  have  a  "thesaurus"  of  substitutable 
categories.  The  extra  work  involved  would  then  be  exactly  analogous  to 
the  extra  work  involved  in  use  of  a  thesaurus  of  index  terms. 

In  addition,  inclusion  of  grammatical  devices  in  the  language 
Increases  both  the  costs  of  indexing  and  the  costs  of  querying  (the  roles 
or  categories  must  be  selected  as  well  as  the  terms). 

Procedures 

Decision  5.  What  criteria  should  be  used  to  index  specific  docu¬ 
ments? 

Should  terms  be  selected  from  the  title,  the  abstract,  the  body 
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of  o  teict?  Shoold  they  be  eelected  by  syntactic  analysis,  frequency  counts, 
other  comfdex  algorithms?  At  this  stage  of  our  knowiedgt^,  these  questions 
are  premature.  First,  it  is  necessary  to  specify  what  want  to  select 
from  a  document  for  indexing.  Only  then  can  discussing  the  method  oi 
selection  be  meaningful. 

The  criterion  for  the  selection  should  be:  what  might  thie  document 
be  wanted  for  by  the  majority  of  its  users.*  To  discover,  at  least  on  the 
basis  of  past  usage,  how  a  epecific  docvument  has  been  used,  might  be  a 
sensible  starting  approach.  Use  of  am  citation  index  for  such  an  cx]plor^tion 
iLs  suggested  in  section  V. 

V.  A  Few -Needed  Experiments 
Indexiog  I^anguage  Parameters 

In  section  XU,  the  effects  of  several  indexing  language  parameters 
were  qualitatively  discussed.  Clearly,  at  least  gross  indication  of  the 
qusmtities  involved  should  be  determined. 

Semantics 

In  this  paper,  the  ''semantic'*  problem  associated  with  indexing 
was  discussed.  In  a  preceding  paper,  an  adaptive  thesaurus  system  was 
auggeated  as  a  possible  approach  to  this  problem.  To  test  tbs  adaptive 
thesaurus  idea,  and  to  gather  data  of  the  semantic  problem,  an 


OThe  misleading  assertion  that  one  should  "identify  the  ccmtents  of  a 
doctuneat"  to  index  it  was  discussed  in  (2). 
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ex^rixnent  hikm  recently  been  ittitiete4*» 

In  this  experiment,  we  will  present  to  e  user  e  Uet  of  hie  query 
terms  (his  "profile'*)  end  ask  him  to  generate  synonyms  for  each  term. 
Then,  for  each  word,  we  will  compile  a  composite  list  of  aU  ttsers* 
synonyms.  The  composite  list  is  then  to  he  remmed  to  the  individual 
witib  a  request  to  check  those  terms  he  coneidere  synonymous.  The 
terms-pIus>synonyms  he  has  checked  are  then  to  he  inserted  into  the 
system  and  changes  in  retrieval  ("miss")  noted. 

This  e3q>eriment  should  also  provide  data  on  the  number  oi 
synonyms  per  term,  on  the  extent  of  lingxiistic  agreement  between 
user,  on  the  relation  between  number  of  synonyms  for  a  term  and  its 
frequency  as  an  index  term,  etc. 

Relevance 

Teste  of  indexing  systems,  as  a  rule,  compare  a  set  of  docu¬ 
ments  obtained  via  the  system  in  response  to  a  query  with  an  ideal  set 
of  "relevant"  documents.  The  basic  assumption  is  that  there  exists 
some  one  unique  subeet  of  the  document  collection  which  is  relsvant 
to  the  query.  The  documents  which  are  found  by  the  procedure  under 
test  are  then  to  be  compared  to  this  ideal  set  of  relevant  documents. 
The  evaluation  is  usually  e3q>ressed  in  terms  of: 

1.  The  number  of  "relevant"  documents  obtained. 


*lhe  e]q;»erunent  is  a  collaborative  effort  between  IBM  Research  and 
the  Advanced  Systems  Oevelopmsnt  Division  using  the  SDf  (Selective 
Dissemination  of  Information)  system. 
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2.  The  number  of  "relevant"  documents  missed  (miss). 

3.  The  number  of  "non> relevant"  documents  obtained  (trash) 
However,  theme  tests  immediately  run  into  difficulties  with  the 

notion  of  **reievance"  on  which  they  are  based.  The  difficulties,  as 
uetiaiiy  states,  are  that  (I)  the  notion  of  relevance  is  vague  and  there 
it  little  agreement,  between  people  in  the  judgment  of  relevance,  and 
(2)  "the  relevance  of  a  document  to  a  query  admits  of  degrees".  One 
esqperiment,  at  least,  has  been  known  to  founder  because  of  these  dlf> 
ficultiee.  In  1953,  a  comparison  of  the  ASTIA  system  and  the  Uniterm 
System  of  Documentation  Incorporated  failed  because  the  two  groups 
were  unable  to  agree  which  documents  were  relevant  {vested  interests 
undoubtedly  played  a  part)  (6).  Sometimes,  while  recognising  the 
eadetence  of  the  problem,  experimenters  proceed  as  if  it  did  not  exist. 
For  example,  in  a  report  by  A.  O,  Little  (7),  we  read  (after  a  die- 
cueeitm  on  measurements  of  retrieval  effectiveness): 

"The  first  two  measures  have  been  used  previously  in  the  literature 
on  evaluation  of  retrieval  systems.  These  measures  assume  that 
agreement  as  to  what  constitutes  relevance  is  possible,  but  this 
assumption  is  of  questionable  validity.  The  whole  question  of  the 
meaning  of  relevance  is,  in  many  ways,  obscure.  In  the  definitions 
given  above,  it  is  treated  as  a  black  or  white  noatter— a  document 
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either  ie  or  ie  oot  relevant  to  a  request. .  .Nonetheleee,  for 
purposes  of  the  analysis » . .  it  la  presumed  that  relevance  can 
be  defined  as  a  '*yes*'  or  "no*’  decieicm  from  the  viewpoint  of 
the  user  of  the  retrieved  information.'* 

Occasionally  attempts  are  made  in  experimental  investigations  to 
circumvent  (rather  than  explore  or  solve)  these  problems.  Cleverdon. 
for  examfde,  in  his  comparative  test  of  indexing  systems,  derives  his 
question  set  from  documents  in  the  collection  awd  then  attempts  to  re¬ 
trieve,  at  least,  these  so  called  ‘'source*'  documents.  He  then  has, 
for  each  question,  at  least  one  document  which,  by  virtue  of  the  arti¬ 
ficial  experimental  situation,  he  has  defined  to  be  relevant.  To  handle 
the  problem  of  degree  of  relevance  for  the  other  documents  retrieved, 
he  usee  a  four  point  scale  (more  useful  than  source  document,  as  useful, 
of  some  relevance,  no  relevance.)  In  attempting  to  test  an  indexing 
system  with  real  questions,  howevef,  the  first  artifice  could  not  be 
used.  And  the  four  point  scale,  while  it  handles  the  probl«$m  of  degrees 
of  relevance,  complicates  the  variability -between -people  problem  still 
further.  For  now  we  have,  not  only  possible  variability  in  a  yes -no 
decision,  but  variably  in  the  scaled  judgments  to  contend  with. 

Since  this  criterion  of  relevance  is  central  to  the  evaluation  of 
Indexing  systems,  it  merits  attention. 
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Tb«  first  {»r<»bism»  oi  ccnirss,  it  to  4stsrmins  th«  sxtent  of  the 
lurebism*  l>  to  whst  oactent  4oss  ths  judgment  of  yes -no  relevsnce 

v»ry  betwestt  ia41vidunls»  »n4  2^  to  whot  extent  does  the  judgment  of 
rsdeeTssce  osi  e  sosle  very  hetween  indisidnels*  {A  third  question  should 
be*  to  ertkot  eitent  ts  one  jHtrmon,  efter  e  time  leg*  c(mslst«d&t  in  his 
jaid|poeie»t.) 

Th«o,  if  tintse  judgments  prove  to  he  so  vsrishle  Ihst  evalus- 
tkms  based  on  them  are  unreliable^  we  can  then  reformulate  our  di¬ 
rections  to  the  ej^erimental  evaluators  to  force  less  subjective  res- 
ponseSf  as  indicated  below. 

To  determine  the  extent  of  the  problem,  we  could  take  a  set  of 
questUms  and  the  results  oi  thess  searches  on  a  document  collection. 
**Sva]aators*'  would  be  needed  (perhaps  college  students  would  be  a 
better  choice  tham  volunteers).  A  question  and  its  responese  could  be 
given  to  several  evaluators,  who  would  be  asked  to  judge  relevance  or 
non  -relevance . 

If  the  judgment  of  relevance  proves  difficult,  we  could  go  about 
this  In  a  different  way.  Instead  of  asking  for  an  absolute  reievance 
judgment  of  each  document  with  respect  to  the  query,  independent  of 
the  other  documents,  we  could  ask  the  evaluator  to  take  the  entire  set 
of  rosptmses  to  a  query  and  rank  them.  We  would  thus  have  a  rela¬ 
tive  judgment  (this  document  Is  mors  relevant  than  that  one).  We  could 
then  compere  the  ranking. 
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If  we  determine  tluet  the  relevance  judgment  ie,  a«  suspected, 
a  unreliable  hssis  for  the  evaluation  of  retrieval  systems,  we  could  re* 
formulate  our  instructions  to  the  examiners  to  decrease  this  variability. 
To  do  this,  we  would  classify  questions  into  several  Oroad  categories, 
based  on  the  expected  type  of  answer.  For  each  category  of  question, 
we  would  then  categorise  the  potential  types  of  answers.  In  this  way, 
by  asking  the  evaluator  a  fairly  detailed  and  concrete  set  of  questions 
instead  of  the  vague  *'is  the  document  relevant? we  sh(mid  force  a 
more  precise  answer. 

By  categories  of  questions,  for  examine,  one  could  use  {this 
is  suggestive  only,  not  final), 

1}  Specific  data  is  desired 

2)  Compendium  of  data  desired 

3)  Correlation  of  data  desired 

4)  Interpretation  of  data  desired 

5}  Methods,  Processes,  Procedures  desired 

6)  Survey->what  is  going  on>desired 

etc. 

Then  for  each  question -type,  we  could  break  down  the  possible 
answers  and  ask  toe  evaluators  to  check,  e.g. 


175 


For  que«tioii-ty;»«  I  Upeciiic  data) 

I .  Document  contains  exact  and  complete  data 
Z,  Document  contains  some  of  data 

1.  Document  confine  information  from  which  data  can  he 
derived.  etc. 

In  other  words,  by  igiving  our  users  more  precise  direction,  we 
may  get  more  precise  answers. 

If  the  judgment  of  degree  of  relevance  of  a  document  to  a  query 
proves  unreliable,  we  could  also  force  a  response  here.  Instead  of 
asking  a  user  to  indicate  relevance  on  a  four  point  scaLe,  wecouJMtryto 
determine  how  much  of  the  document  he  has  to  read  before  making  a 
judgment  of  relevance,  (e.g. ,  If  only  the  subject  heading  is  read,  the 
document  is  highly  relevant,  if  the  title,  it  is  less  so,  if  the  abstract.  .  . 
etc.  and  so  on  through  full  text.}. 

Since  evaluations  of  indexing  depend  critically  on  this  relevance 
judgment, it  merits  some  attention. 

Document  ‘'Content** 

In  the  jargon  of  the  field  of  information  retrieval,  the  process 
of  indexing  ie  often  seen  as  ''identifying  document  content,  "  "identliyirg 
relevant  information.  "  "determining  document  contents,  "  etc.  In  (2)  this 
viewpoint  was  discussed  and  sn  attempt  made  to  indic;xte  that:  1)  content 
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i*  not  inherent  in  a  document,*  and  2)  what  ie  In  a  document,  for  re¬ 
trieval  purpose*,  depends  on  who  is  reading  it. 

The  task  of  indexing,  then,  involve*  predicticwa  of  the  probably 
use  of  a  document.  On  what  criteria  should  this  prediction  be  based? 
Unfortunately,  there  has  been  no  work  at  ail  to  determine  such  criteria. 
As  a  starting  point,  it  would  seem  reasonable  to  determine  how  a  given 
document  has  been  used  by  people  who.with  existing  indexing  methods, 
managed  to  find  it.  There  are  then  two  questions  we  wish  to  ask: 

1}  Is  there  any  uniformity  between  different  users  of  one 
document  in  what  they  consider  the  ''content'*  of  the  document? 

2)  If  there  is  such  uniformity,  are  there  clues,  in  the  text, 
which  would  help  the  indexer  predict  this  user  -defined  "content?" 

Until  recently,  it  would  have  been  impossible  to  try  to  answer 
these  questions.  Once  indexed,  a  document  was  stored,  then  used  at 
various  times  by  different  people  -  but  no  feasible  method  of  determining 
who  had  used  a  particular  document  was  available.  Now,  while  it  may 
still  be  diffi’:%iit  to  contact  the  users  of  a  document,  it  is  no  longer 
impractical  to  find  some  of  them  at  least.  The  mechanism  for  doing 
so  is  the  citation  index.  The  citation  index  lists,  for  each  document  in  it, 
those  authors  (and/ or  papers)  who  have  cited  it  and  who  may  be  assumed 
to  have  used  it. 

e  Words  or  phrases  can  be  identified.  Content,  or  meaning,  however, 
involves  both  a  word  and  a  iser. 
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Some  of  that  cctuld  be  asked,  for  example,  would 

'bet  'Ho  what  exte&i  do  words  in  the  title  of  a  dooument  occur  m  the  titles 
of  documents  that  cited  it.  How  has  a  given,  docximent  been  used  by 
various  authors  (specific  data  obtained  from  it.  experimental  methods 
obtained,  just  scanned  for  general  interest,  etc.).  What  portion  of  the 
document  wae  used  by  different  users  (fidl  text,  title,  first  and  last 
paragraphs,  abstract),  how  would  different  users  have  indexed  the  docu> 
ment,  etc..." 

Concluding  Remarks 

This  paper  has  identified  some  costs  and  parameters  related  to 
Indexing,  interrelated  these  costs  and  parameters  qualitatively,  and 
suggested  several  experiments  needed  to  make  design  of  indexing  systei  t 
a  conscious  and  rational  process.  The  paper  Is  clearly  neither  comple.  « 
nor  definitive.  The  discursive  presentation  of  the  interractions  of  pars  • 
meters  and  costs  should  be  replaced  with  precise  formulation.  Experi¬ 
ments  must  then  be  undertaken  to  provide  some  insight  into  the  quantities 
involved.  Perhaps  then  the  current  competitive  and  argumentative  pro¬ 
cedures  for  deciding  on  an  indexing  system  for  a  given  application  can  be 
replaced  with  rational  ones. 
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